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1.  INTRODUCTION 


This  manual  is  a revision  of  the  programmer's  handbook^  by  the  same 
name,  written  by  Walter  J.  Scott  and  John  R.  Hiller  of  the  Harry  Diamond 
Laboratories.  It  incorporates  those  changes  and  additions  to  the  SKYNET 
Applications  Software  Package  (SASP)  which  have  been  made  since  August 
1976. 

This  Programmers'  Handbook  contains  detailed  descriptions  of  the 
programs  and  subroutines  which  comprise  the  SASP  used  in  the  Systems 
Gener'atad  Electromagnetic  Pulse  (SGEMP)  Transportable  Automated  Record- 
ing System  (STARS).  These  programs,  which  run  on  the  Digital  Equipment 
Corporation  (DEC)  Programmable  Data  Processor  (PDP)  11/40  computer, 
control  the  acquisition,  storage,  reduction  and  presentation  of  all  data 
collected  within  the  STARS  trailer.  Details  concerning  the  operation  of 
STARS  are  given^  in  the  SASP  Operators'  Handbook,  Version  2. 


2.  INDIVIDUAL  PROGRAM  CKOCUMENTATION 

standard  entries  have  been  used  to  document  the  SASP 

Definition 

Program  Name  The  full  name  of  the  program 

Task  Name  The  name  given  to  the  program  by  the  operating 

system  task  builder 

Language  The  programming  language  in  which  the  program  is 

written 

Written  The  date  that  the  program  was  written 

Modified  The  date  or  dates  that  the  program  was  modified 

Called  Subroutines  A list  of  those  subroutines  called  directly  by 

the  program  (Entry  points,  if  different  from  the 
subroutine  name,  are  shown  in  parentheses.) 

^Waiter  J.  Scott  and  John  R,  Hiller,  SKYNET  Applications  Software 
Package  (SASP)  Programmer's  Handbook,  Harry  Diamond  Laboratories  TR-1S28 
(November  1977). 

^Walter  J.  Scott,  John  R.  Hiller,  and  Robert  Puttcamp,  SKYNET  Appli- 
cations Software  Package  (SASP)  Operators’  and  Users'  Handbook,  Version 
2,  Harry  Diamond  Laboratories  TR-1843  (March  1978). 
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Entry 

Files 


Definition 


Disc  files  referenced  by  the  program 


Input/Output  (I/O)  Peripheral  devices,  other  than  disc,  used 


Devices 
COMMON  Areas 
Description 

Algorithms 

Flowchart 
Typical  Output 


by  the  program 

Names  of  COMMON  blocks  used  by  the  program 

A general  narrative  description  of  what  the 
prograun  does 

A description  of  any  significant  algorithms  used 
by  the  program 

A flowchart  of  the  program 

A sample  of  the  output  from  the  program 


These  entries  are  used  only  if  they  are  directly  applicable  to  the 
program  under  discussion. 


The  following  is  a list  of  standard  peripheral  device  abbreviations. 


CR:  or  CRO: 
CT : or  CTO : 
CTl: 

DK:  or  DKO : 
DKl: 

LP:  or  LPO: 
MT : or  MTO : 
TI: 

TT:  or  TTO : 
TTl: 


The  card  reader 

Drive  0 of  the  cassette  reader 

Drive  1 of  the  cassette  reader 

Disc  drive  0 

Disc  drive  1 

The  line  printer 

The  magnetic  tape  drive 

The  terminal  from  which  the  program  is  being  run 
The  Tektronix  R4010  cathode  ray  tube  terminal. 
The  DECwriter  II  (LA36)  terminal. 


The  remainder  of  this  section  lists  the  individual  program 
documentation . 
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ATN 


ATN 


FORTRAN  Written  May  1976 

Modified  March  1977 

Called  Subroutines; 

ANSWER,  ASDCD,  ATNREF,  AINIT,  ANEW,  ARDENT,  ARDNEX,  ARESET,  AWRADD, 
AWRENT,  FLDCD,  INPUT 

File: 

DKO : [ 100 , 100 ] ATNCAL . DAT 
I/O  Devices : 

TI : , LP: 

Description : 

Program  ATN  generates  and  maintains  the  attenuator  calibration  file 
ATNCAL.DAT.  The  various  modes  of  operation  are  selected  by  issuing 
the  required  commands  from  the  following  list: 

GN  Start  a new  file. 

EN  Enter  device  information:  either  new  or  updated  data. 

PA  Print  entire  file  on  the  line  printer. 

PE  Print  selected  attenuator  information  on  TI : . 

HE[LP]  List  the  available  command  codes. 

ATN  prompts  for  information  with  A: ; modes  GN,  EN,  and  PE  also 
prompt  with  DEVICE  ID:.  A response  to  the  latter  prompt  of  only  a 
carriage  return  will  terminate  that  mode  of  operation  and  cause  the 
A:  prompt  to  be  issued.  Responding  to  the  A:  prompt  with  just  a 
carriage  return  will  terminate  the  program.  ATN  will  request  such 
additional  information  as  it  requires  to  perform  the  requested 
functions.  All  data  are  entered  by  using  standard  SASP  input 
conventions . 
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BASE 


BAS 


MACRO-11  Written  April  1976 

Modified  November  1976 

Called  Subroutines: 

ATTEN(TRIGB) , CHKTRG,  CLRCBD,  CMDDIG,  DSKERR,  GETBAS,  INTABL 
File: 

DKl : [ 100 , 100 ] MAIN , DAT 
I/O  Devices: 

TI : , digitizers,  attenuator  control  unit,  trigger  control  unit 
COMMON  Area: 

SYSCON  partition 
Description: 

Program  BASE  acquires,  reduces  and  stores  a baseline  trace  for  each 
enabled  digitizer.  Triggering  of  the  digitizers  is  accomplished 
automatically.  The  raw  baseline  trace  is  normalized  and  stored  in 
integer  mode  and  the  trace  bloom  is  calculated  and  stored  in  SYSCON. 
The  digitizer  knob  readouts  are  compared  with  the  requested  settings 
and  any  errors  found  are  noted.  Any  error  condition  past  or  present 
on  either  a digitizer  or  its  associated  channel  will  result  in  the 
generation  of  a no  baseline  (NOB)  error  for  that  digitizer.  If  the 
initial  error  occurs  after  the  raw  data  have  been  normalized,  the 
baseline  trace  will  be  stored. 


Flowchart: 
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BLKCNT 


BLK 


FORTRAN  Written  May  1976 

Modified  January  1977 

I/O  Device: 


TI: 

CXIMMON  Area: 

SYSCON  partition 
Description; 

Program  BLKCNT  prints  the  number  of  disc  blocks  required  for  file 
MAIN.DAT.  This  value  is  stored  in  SYSCON  and  in  file  SYSCON.DAT 
by  program  CONGEN. 


BLMCHK  BLM 

FORTRAN  Written  August  1976 

Modified  January  1977 

Called  Subroutine; 

PAGE 

I/O  Device ; 

TI: 

COMMON  Area: 

SYSCON  partition 
Description : 

Program  BLMCHK  provides  a printout  of  the  digitizer  entries  in 
SYSCON  on  the  operator's  console.  In  particular,  it  provides  the 
bloom  factors  for  each  digitizer.  These  need  to  be  checked  from 
time  to  time,  especially  if  a bloom  related  error  is  generated. 
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CAL 


CAL 


MACRO-11  Written  April  1976 

Modified  October  1976,  January  and  March  1977 

Called  Subroutines: 

CALIB,  CHKTRG,  CLRCBD,  CMDDIG,  DSKERR,  GETCAL,  INTABL,  SETVEC 
File: 

DKl : [ 100 , 100 ] MAIN . DAT 
I/O  Devices: 

TI:,  digitizers,  attenuator  control  unit,  trigger  control  unit 
COMMON  Area: 

SYSCON  partition 
Description: 

Program  CAL  acquires,  reduces  and  stores  a calibration  trace  for 
each  enabled  digitizer.  Triggering  is  accomplished  automatically. 
The  digitizer  knob  readouts  are  compared  with  the  required  settings 
and  any  errors  are  noted.  Any  error  past  or  present  on  a digitizer 
or  its  associated  channel  will  cause  a no  calibration  data  (NOC) 
error  to  be  generated. 

The  transmitters  are  turned  on  and  allowed  to  warm  up  for  the  number 
of  seconds  specified  by  the  value  of  variable  CNTXMT  contained  in 
the  SYMDEF  macro.  There  is  an  additional  3-s  delay  between 
calibration  triggering  and  the  automatic  turnoff  of  the 
transmitters. 


CHKBAS  CKB 

FORTRAN  Written  July  1976 

Modified  October  1976,  January  1977 

Called  Subroutines: 

ANSWER,  DATFIO  (OPENS,  READB,  CLOSES),  GRABAS,  TCS 
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File: 


DKl: [100, 100] MAIN.DAT 
I/O  Devices : 


TTO: , LPO: 
COMMON  Areas : 


BASDAT,  SYSCON  partition 
Description: 

Program  CHKBAS  plots  the  baseline  data  on  the  Tektronix  R4010 
terminal.  The  program  asks  the  operator  if  hard  copies  of  these 
graphs  are  desired.  A "Y"  response  will  cause  the  automatic  genera- 
tion of  these  hard  copies  on  the  line  printer  (LP : ) ; any  other 
response  will  cause  this  section  of  the  program  to  be  skipped. 
After  each  graph  is  drawn,  the  operator  is  asked  the  question 
"CONTINUE?"  A "Y"  response  will  cause  the  program  to  plot  the 
output  from  the  next  enabled  digitizer;  any  other  response  will 
cause  the  program  to  terminate.  CHKBAS  is  checkpointable  and  will 
exit  while  waiting  for  a response  to  the  question  to  the  operator 
if  another  program  is  running  in  or  requesting  the  same  partition. 


CHKCAL  CKC 

FORTRAN  Written  May  1976 

Modified  October  1976,  January  and  March  1977 

Called  Subroutines: 

ANSWER,  CHNERR,  DATFIO  (OPENS,  READB,  CLOSES),  GRACAL,  XCHDRl , TCS 
Files.: 

DKO: [100, 100 1XCHCAL.DAT,  DKl: [100 , 100] MAIN . DAT 
I/O  Devices: 

TTO:,  LPO: 

COMMON  Areas: 

SYSCON  partition,  XCHCAL,  CALDAT 
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Description: 

Program  CHKCAL  is  used  to  evaluate  the  calibration  data  from  each 
enabled  digitizer.  The  program  begins  by  asking  the  operator  if 
hard  copies  of  the  calibration  graphs  are  desired.  A "Y"  answer  to 
this  question  will  cause  hard  copies  to  be  produced  automatically; 
any  other  answer  will  cause  this  section  of  the  program  to  be 
skipped.  Each  calibration  pulse  is  plotted  on  the  Tektronix  R4010 
terminal  and  the  operator  is  asked  to  mark  either  the  positive  or 
the  negative  peak  value  of  the  calibration  pulse  and  the  zero  value 
by  using  the  Y-cursor  of  the  terminal.  These  values  are  stored  in 
SYSCON.  The  channel  subsystem  gain  (the  gain  from  the  input  of  the 
optical  transmitter  through  the  digitizer)  is  calculated  and  stored 
in  SYSCON.  Two  additional  lines  are  drawn  on  the  graph  to  show  the 
values  that  the  operator  picked. 


Flowchart:  CHKCAL 
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CLEAR 


CLE 


FORTRAN  Written  January  1977 

File : 

DKO: [100, 100 1FLAG.DAT 
COMMON  Area; 

SYSCON  partition 
Description; 

Program  CLEAR  reads  the  digitizer  and  channel  flag  information  from 
file  FLAG.DAT  and  resets  these  words  in  COMMON  partition  SYSCON. 
Program  CLEAR  sets  event  flag  34  upon  its  completion. 


CONDAT  CON 

MACRD-11  Written  March  1977 

Called  Subroutines: 

CALOR,  CMDDTG,  SAVCLR,  STCDAT,  XMIT 
File: 

DKl: [100, 100 lCssss02.DAT  (ssss  = current  shot  number) 

I/O  Devices: 

TI : , digitizers,  attenuator  control  unit,  trigger  control  unit, 
calorimeter  control  unit 

COMMON  Area: 

SYSCON  partition 

Description: 

Program  CONDAT  continues  the  data-taking  process.  The  digitizer 
sweeps  are  armed.  The  messages  "CONDAT  RUNNING"  and  "WAITING  FOR 
TRIGGER"  are  displayed  on  TI;,  The  shot  trigger  interrupt  is 
enabled.  A message  "TO  ABORT  TYPE  A"  is  displayed  and  an  I/O 
request  to  the  terminal  with  an  asynchronous  trap  (AST)  address  exit 
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point  is  issued.  At  this  point,  CX)NDAT  goes  into  a wait  loop  for 
the  trigger  from  the  simulator.  On  receiving  the  trigger,  the  shot 
time  is  stored  in  SYSCON,  the  AST  is  cancelled,  and  the  calorimeter 
data  are  collected.  The  attenuator  settings  are  then  reverified  and 
the  transmitters  are  turned  off.  If  there  are  data  from  the 
calorimeters,  they  are  written  to  DKl;  and  then  to  LPO:.  CONDAT 
then  requests  MORDAT  and  exits. 

In  the  event  that  the  simulator  does  not  fire  or  if  for  any  other 
reason  the  operator  wishes  to  abort  the  run,  he  types  the  letter 
"A."  This  is  picked  up  by  the  AST,  the  transmitters  are  turned  off, 
the  interrupts  are  disabled,  and  CONDAT  exits  without  requesting 
program  MORDAT. 


Flowchart:  CONDAT 


[ ARM~ 


^ START J 


I 


ST^RT  PROGRAMMABLE 
CLOCK 


ENABLE  TRIGGER 
INTERRUPT 


ENABLE  ABORT  AST 


L 


-WAITING  FOR  TRIGGER 
TO  ABORT  TYPE  A 


I 


-.IR'j 


RECORD 

PROGRAMMABLE 
CLOCK  READING 
AND  TRIGGER  TIME 


CANCEL  ABORT  AST 
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OONGEN 


GEN 


FORTRAN  Written  May  1976 

Modified  January  and  March  1977 

Called  Subroutines: 

FXDCD,  INPUT,  SCGEN,  SCIO(SCOUT),  DSKERR,  XCHSCH 
Files : 

DKO : [ lOOy 100 ] SYSCON . DAT , DKO : [ 100 , 100 ] XCHCAL , DAT 
I/O  Device : 


TI : 

COMMON  Areas; 

SYSCON  partition,  XCHCAL 
Description: 

Program  CONGEN  generates  a new  system  configuration  file  SYSCON, DAT; 
zeros  and  resets  the  SYSCON  COMMON  partition  and  initializes  the 
following  items:  the  number  of  digitizers  in  the  system 
configuration,  the  number  of  digitizer  control  boards,  the  number  of 
data  channels,  the  digitizer  UNIBUS  addresses  (utilizing  operator 
input  for  all  of  the  preceding  items) ; calculates  the  virtual  block 
numbers  and  the  number  of  disc  blocks  required  for  the  shot  data 
file  (MAIN.DAT);  and  locates  the  transmitter  numbers  (from  the  file 
XCHCAL.DAT) . 


DATAPC  ’ DAT 

MACRO-11  Written  April  1976 

Rewritten  March  1977 

Called  Subroutines: 

ATTN,  CLRCBD,  CMDDIG,  INTABL,  SETVEC,  XMIT 
I/O  Devices: 

TI:,  digitizers,  attenuator  control  unit 
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COMMON  Area: 


SYSCON  partition 


Description : 


Program  DATAPC  is  the  first  in  a set  of  four  programs  (DATAPC, 
CONDAT,  MORDAT  and  PLTCLR)  which  perform  the  required  functions  for 
an  actual  data  shot.  The  current  program  DATAPC  is  that  portion  of 
the  program  by  the  same  name  described  in  the  programmer's  handbook^ 
for  Version  1 of  SASP  up  to  just  before  the  "WAITING  FOR  TRIGGER" 
message  is  issued,  with  several  additions. 


Program  DATAPC  should  be  started  at  minus  2 minutes.  The  program 
searches  the  channel  flag  words  looking  for  any  that  are  nonzero, 
i.e.,  for  flagged  out  channels.  If  it  finds  any  channels  that  are 
flagged  out,  it  reports  the  number  of  them  to  the  operator  and  asks 
if  they  should  be  cleared.  If  the  operator  replies  with  a "Y"  for 
yes,  program  CLEAR  is  requested  and  DATAPC  issues  a wait  for  event 
flag  34  macro.  CLEAR,  which  runs  in  a separate  partition,  sets 
event  flag  34  upon  its  exit.  DATAPC  then  requests  program  PREDAT 
and  issues  a wait  for  event  flag  35  macro.  PREDAT,  which  also  runs 
in  a separate  partition,  sets  event  flag  35  upon  its  exit.  Any 
other  reply  is  considered  to  be  a no  answer  and  neither  CLEAR  nor 
PREDAT  is  requested.  DATAPC  then  calculates  the  proper  amount  of 
time  to  wait  before  starting  to  turn  on  the  transmitters  so  that  the 
"WAITING  FOR  TRIGGER"  message  will  be  issued  at  minus  20  seconds. 
Following  this  wait,  the  transmitters  are  turned  on  and  the 
attenuator  settings  are  verified.  At  the  end  of  the  transmitter 
warmup  time,  DATAPC  requests  program  CONDAT  and  exits. 


^Walter  J.  Scott  and  John  R.  Hiller,  SKYNET  Applications  Software 
Package  (SASP)  Programmer's  Handbook,  Harry  Diamond  Laboratories  TR-1828 
(November  1977). 
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Flowchart:  DATAPC 


ERASE  ERA 

FORTRAN  Written  May  1976 

Called  Subroutine : 

P, 


File 


I/O  Device; 


TI : 


Description: 


Program  ERASE  clears  the  screen  of  the  Tektronix  R4010  terminal 
(TTO:)  or  issues  eight  line-feed  commands  to  the  DECwriter  II 
(TTl;),  depending  on  which  of  these  is  TI:. 


FIXNPT  FNP 


Flowchart:  FIXNPT 


FORTRAN  Written  August  1976 

Called  Subroutines: 


DATFIO  (OPENS,  READB,  WRITER,  CLOSES) 

File: 

DKl : [ 100 , 100 ] MAIN . DAT 
COMMON  Area: 

SYSCON  partition 
Description: 

Program  FIXNPT  provides  a partial  recovery 
from  a data  overflow  condition  on  a digitizer 
(error  code  OVF) . The  count  of  the  raw  data 
points  for  all  digitizers  is  set  to  the  mini- 
mum of  either  the  current  count  or  2000. 


^ START  ^ 
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FLAG 


FLA 


FORTRAN  Written  May  1976 

Called  S\ib routines : 

ANSWER,  CHNERR,  DCDBIT,  DIGERR,  PAGE 
I/O  Device: 


Tl: 

COMMON  Area: 

SYSCON  partition 
Description: 

Program  FLAG  prints  the  error  flags  present  on  each  digitizer  and 
channel  and  allows  the  operator  to  enable  (clear  the  flags)  or 
disable  (add  the  disabled  flag)  each  such  flag  word.  The  question 
asked  of  the  operator  is  "ENABLE?"  Answering  with  a "Y"  for  yes 
causes  the  flag  word  to  be  cleared;  any  other  answer  is  interpreted 
as  a no  and  causes  the  disabled  bit  to  be  set  in  that  flag  word. 


Flowchart:  FLAG 
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FPLOT 


FPL 


FORTRAN  Written  by  Versatec  Corporation 

Modified  January  1977 


File; 

DKl : [ 100 , 100 ] VDATA . BIN 
I/O  Devices: 

TI : , LP : 

Description: 

Program  FPLOT  uses  file  VDATA.BIN  to  produce  the  final  scaled  plots 
on  the  Versatec  line  printer.  The  program  queries  the  operator  to 
obtain  the  number  of  copies  of  each  plot. 


GETCON  GET 

MACRO- 11  Written  January  1977 

Called  Subroutine: 


SCIO  (SCIN) 

File: 

DKO : [ 100 , 100 ] SYSCON . DAT 
COMMON  Area; 

SYSCON  partition 
Description; 

Program  GETCON  copies  file  SYSCON.DAT  into  the  SYSCON  COMMON 
partition.  Program  GETCON  must  be  run  before  any  data  are  taken. 
'The  only  exception  to  this  run  is  if  a new  system  generation  using 
program  CONGEN  is  done.  Program  GETCON  is  run  automatically  if 
indirect  command  file  DATAOP  is  invoked  to  install  the  SASP  system. 
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KNOB 


KNO 


Flowchart : KNOB 


MACRO-11  Written  April  1976 

Modified  October  1976,  January  1977 

Called  Subroutines: 

CLRCBD,  CMDDIG 

I/O  Devices ; 

TI:,  digitizers 

COMMON  Area; 

SYSCON  partition 


Description: 

Program  KNOB  places  all  enabled  digitizers  in  knob  setting  mode. 
The  interrupts  are  disabled,  the  digitizers  are  initialized  and 
switched  to  the  television  mode  and  their  dot  graticules  are 
enabled.  Standard  SASP  error  codes  apply. 


log  log 

FORTRAN  Written  May  1976 

Modified  January  and  March  1977 

Called  Subroutines: 

ANSWER,  ASDCD,  FLDCD,  FXDCD,  INPUT,  PAGE,  SCIO(SCOUT) 
File: 

DKO : [ 100 , 100 ] SYSCON . DAT 
I/O  Device: 

TI; 

COMMON  Area; 

SYSCON  partition 
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Description: 

Program  LOG  is  run  to  add  or  change  the  information  on  the  probe, 
transmitter,  receiver  and  digitizer  logs.  The  choice  of  skipping 
cind,  hence,  not  changing  one  or  more  of  these  logs  is  provided. 
Standard  SASP  terminal  input  conventions  apply.  Items  are  not 
checked  for  validity  in  program  LOG,  but  may  be  checked  by  running 
program  SYSCHK. 

Sample  log  forms  and  typical  input  are  shown^  in  SASP  Operators'  and 
Users'  Handbook,  Version  2. 

The  baseline  offset  position  (an  item  in  the  digitizer  log)  is  not 
fully  implemented  in  Version  2 of  the  SASP.  Only  a value  of  zero 
will  work  correctly.  The  SY5C0N.DAT  file  is  updated  as  the  final 
step  of  program  LOG. 


MARK  MAR 

FORTRAN  Written  May  1976 

Modified  August  and  October  1976,  January  1977 

Called  Subroutines: 

ANMODE,  ANOMRR,  ANSWER,  ASDCD,  DATFIO  (OPENS,  READB,  READR,  WRITER, 
CMSES)  , GRAATC,  INPCSR,  MOVABS,  MRKCUR 

Files : 

DKO: [100, 100JXCHCAL.DAT,  DKl : [100 , 100] MAIN. DAT 
I/O  Devices: 

TTO:,  LPO: 

COMMON  Areas: 

SYSCON  partition,  NORDAT,  PARAM,  XCHHDR 
Description: 

Program  MARK  is  run  to  allow  the  operator  to  manually  mark  the  time 
of  the  peak  of  the  fiducial  (fidu)  pulse,  the  time  of  the  start  of 


^Walter  J.  Scott,  John  R.  Hiller,  and  Robert  Puttcamp,  SKYKET  Appli- 
cations Software  Package  (SASP)  Operators'  and  Users'  Handbook,  Version 
2,  Harry  Diamond  Laboratories  TR-1843  (March  1978), 
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data  and  the  time  of  the  first  peak  of  interest.  The  scaled  data 
which  are  read  from  disc  file  MAIN.DAT  are  unsealed  and  plotted  on 
the  Tektronix  R4010  terminal  for  each  enabled  digitizer.  The 
operator  then  marks  the  required  points  using  the  graphic  X-cursor. 
The  program  draws  tick  marks  along  the  top  of  the  graph  to  show  the 
marked  times  and  then  queries  the  operator  to  ascertain  whether  he 
is  satisfied  with  the  chosen  points.  An  "N"  answer  causes  the 
program  to  recycle,  redraw  the  graph,  and  again  allow  the  operator 
to  mark  the  required  points.  A "Y"  answer  causes  the  selected  times 
to  be  stored  in  COMMON  PARAM. 

Hard  copies  of  the  marked  data  may  be  requested  by  the  operator  at 
the  start  of  the  program  and  will  be  produced  automatically  if 
requested. 

The  operator  is  prompted  to  enter  a comment  of  a maximum  length  of 
24  characters;  the  comment  is  also  stored  in  COMMON  PARAM. 


As  a final  step  for  each  digitizer,  COMMON  PARAM  is  written  to  disc 
file  MAIN.DAT. 


Flowchart: 


MARK 


0 
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Flowchart:  MARK  (Cont'd) 


MORDAT 


MOR 


MACRO-11  Written  March  1977 

Called  Subroutines: 


GETDAT,  CMDDIG,  SETVEC,  DSKERR 
File : 

DKl: [100, 100JMAIN.DAT 
I/O  Devices: 

TI : , digitizers 
COMMON  Area; 

SYSCON  partition 
Description: 

Program  MORDAT  continues  the  data-taking  process.  It  first  displays 
the  message  "MORDAT  RUNNING"  and  then  acquires  the  raw  shot  data 
from  the  enabled  digitizers  amd  stores  them  in  disc  file  MAIN.DAT. 

A check  is  made  to  determine  if  there  were  any  calorimeter  data 
collected  for  this  shot;  if  so,  program  PLTCLR  is  requested  and 
program  MORDAT  exits.  If  there  were  no  calorimeter  data,  the 
request  for  PLTCLR  is  skipped. 

Flowchart:  MORDAT 
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OFFLIN 


OFF 


MACRO-11  Written  May  1976 

Modified  January  1977 

Called  Subroutines: 

DIGERR,  LSTERR 

I/O  Devices; 

TI:,  digitizers 

Description: 

Program  OFFLIN  is  run  to  check  all  of  the  enabled  digitizers  to  see 
if  any  of  them  are  off-line  and,  if  they  are,  to  flag  them  with  the 
error  condition  (OFF) . The  computer  operating  system  interrupt 
handler  for  vector  address  4 is  replaced  by  a trap  to  program  OFFLIN 
and  an  initialize  command  is  sent  to  each  enabled  digitizer.  A 
digitizer  off-line  will  cause  a trap  through  vector  address  4 and 
the  digitizer  will  then  be  flagged  out. 


OUTFIL  OUT 

MACRO-11  Written  April  1976 

Modified  January  and  March  1977 

File : 

DKl : [ 100 , 100 ] MAIN . DAT 
COMMON  Area: 

SYSCON  partition 
Description: 

Program  OUTFIL  creates  a zero-filled,  noncontiguous  file  on  disc  1 
with  the  name  MAIN.DAT;!.  If  this  file  already  exists  on  disc  1,  a 
new  file,  with  the  next-higher  version  number,  will  be  created.  The 
length  of  this  file  is  controlled  by  the  number-of-blocks  item  in 
SYSCON  COMMON. 
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PLOTC 


PLT 


FORTRAN  Written  March  1977 
Description : 

Program  PLOTC  is  a dummy  main  program  for  program  PLTCLR.  Its  sole 
purpose  is  to  accomplish  the  FORTRAN  input-output  initialization  for 
subroutine  ANOCLR.  This  initialization  could  be  done  directly  in 
program  PLTCLR,  except  that  the  Digital  Equipment  Corporation  has 
not  seen  fit  to  document  the  procedure. 


PLTCLR  PLT 

MACRD-ll  Written  August  1976 

Modified  March  1977 

Called  Subroutines ; 


CALPLT 

File; 

DKl: [100, 100 lCssss02.DAT  (ssss  = current  shot  number) 

COMMON  Area: 

SYSCON  partition 
I/O  Devices; 

TTO : , LPO : 

Description: 

Program  PLTCLR  plots  and  annotates  the  calorimeter  data  on  the 
Tektronix  R4010  terminal  and  then  causes  hard  copies  of  these  plots 
to  be  made  on  the  line  printer  (LPO:). 
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PRB 


PRB 


FORTRAN  Written  May  1976 

Called  Subroutines: 


ANSWER,  ASDCD,  FLDCD,  FXDCD,  INPUT,  PRBREF  (PINIT,  PNEW,  PRDENT, 
PRDNEX,  PRESET,  PWRADD,  PWRENT) 

File : 

DKO : [ 100 , 100 ] PRBCAL . DAT 
I/O  Devices : 

TI : , LPO  : 

Description: 

Program  PRB  is  used  to  generate,  modify,  or  list  probe  file 
PRBCAL.DAT.  Its  operation  is  essentially  the  same  as  the  operation 
of  program  ATN;  hence,  the  reader  is  asked  to  reference  that 
description  for  details  on  this  program's  operation.  The  input  of  a 
balun  number  that  is  not  a 1,  2,  or  3 will  cause  an  immediate  error 
flag. 


PREDAT  PRE 

MACRO-11  Written  April  1976 

Modified  January  and  March  1977 

Called  Subroutines: 

CLRCBD,  CMDDIG 

I/O  Devices : 

TI;,  digitizers 

COMMON  Area: 

SYSCON  partition 
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Description: 

Program  PREDAT  prepares  the  enabled  digitizers  for  acquiring  a data 
trace.  It  must  be  run  before  program  DATAPC  is  run.  The  digitizer 
interrupts  are  disabled  and  the  digitizers  are  initialized,  switched 
to  digital  mode  and  checked  to  insure  that  they  are  in  single  sweep 
mode.  Standard  SASP  error  codes  will  be  listed  on  TI : for  any  error 
conditions  found.  The  program  will  set  event  flag  35  upon  exit. 


PRTNAM  PRT 

FORTRAN  Written  May  1976 

Modified  January  1977 

I/O  Device : 

TI: 

COMMON  Area: 

SYSCON  partition 
Description: 

Program  PRTNAM  prints  out  on  TI:  the  name  of  the  shot  file  to  vdiich 
SYSCON  points. 

RAWCPY  RAW 

FORTRAN  Written  May  1976 

Modified  August  1976,  January  and  March  1977 

Called  Subroutines: 

ASDCD,  DATFIO  (OPENS,  READB,  READR,  WRITER,  CLOSES),  GRARAW,  HDCOPY , 
INPUT,  PLTSF 

File : 

DKl : [ 100 , 1001MAIN.DAT 
I/O  Devices : 

TTO : , TTl : , LPO : 
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COMMON  Areas: 


SYSCON  partition,  HPTR,  RAWDAT,  PARAM,  ASTV 
Description: 

Program  RAWCPY  graphs  the  raw  digitizer  data  on  the  Tektronix  R4010 
terminal  and  produces  a hard  copy  of  the  graph  on  the  line  printer. 
The  graph  is  annotated  with  the  digitizer  number,  channel  number, 
shot  number,  vertical  and  horizontal  digitizer  sensitivities  and  the 
operator's  optional  comment.  The  comments  are  stored  in  COMMON 
SYSCON. 

Due  to  a problem  caused  by  repeated  values  from  the  raw  digitizer 
data,  an  asynchronous  trap  (AST)  is  set  up  which  uses  TTl:  during 
the  actual  plotting  process.  This  AST,  which  is  activated  by  typing 
the  "escape"  character  on  TTl:,  forces  the  plot  to  the  next  set  of 
data  points. 

The  actual  plotting  is  done  by  using  the  Tektronix  Terminal  Control 
System  softv;are  in  the  point  plot  mode. 
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Flowchart:  RAWCPY 


INCREMENT  DIGITIZER  COUNTER 


RECCAL 


REC 


FORTRAN  Written  March  1977 

Called  Subroutines: 

ASDCD,  DATFIO  (OPENS,  READS,  CLOSES),  FSCIN 
Files : 

DKl : [ 100 , 100 ] Sssss02 . DAT , DKO ; [ 100 , 100 ] SYSCON . DAT 
(ssss  = shot  number) 

I/O  Devices; 

TTO : , LPO : 

COMMON  Area; 

SYSCON  internal 


Description: 

Program  RECCAL  is  used  to  produce  hard  copies  of  the  calibration 
traces  from  a specified  shot  file  (Sssss02.DAT) . The  copy  of  SYSCON 
stored  as  a part  of  the  shot  file  is  used  in  an  internal  COMMON 
bloc)c,  rather  than  the  copy  )<ept  in  the  SYSCON  partition.  (See  the 
writeup  on  subroutine  FSCIN.)  The  calibration  traces  are  drawn  on 
the  Te)ctronix  R4010  terminal  and  are  automatically  hard  copied  on 
the  line  printer. 

Programs  SHOTNO  and  SAVCON  must  be  run  before  program  RECCAL  is  run 
to  get  the  disc  copy  of  SYSCON  pointed  at  the  correct  shot  file. 


SAVCON 


SAV 


MACRO-11  Written  January  1977 

Called  Subroutines: 

SCIO (SCOUT) 

File : 

DKO: [100, 100] SYSCON.DAT 
COMMON  Area: 

SYSCON  partition 
Description: 

Program  SAVCON  copies  the  contents  of  the  SYSCON  COMMON  partition  to 
file  SYSCON.DAT.  Program  SAVCON  must  be  run  before  the  computer  is 
shut  down . 

Before  program  SAVCON  is  installed,  it  will  be  necessary  to  remove 
the  operating  system  program  SAV  (REM  SAV) . 


SCACPY  SPY 

FORTRAN  Written  May  1976 

Modified  August  1976,  January  and  March  1977 

Called  Subroutines: 

FSCIN,  DATFIO  (OPENS,  READB,  READR,  WRITER,  CLOSES),  PRBSCH,  GRASCA, 
ANOSCA,  HDCOPY 

Files : 

DKO: [100, 100 1PRBCAL.DAT,  DKl : [ 100 , 100] Sssss02 .DAT , 

DKO : [ 100 , 100 ] SYSCON . DAT 
(ssss  = shot  number) 

I/O  Devices: 

TTO: , LPO: 
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COMMON  Areas: 


SYSCON  internal,  NORDAT,  PRBCAL,  PARAM 


Description: 

Program  SCACPY  graphs  the  finalized  scaled  data  from  each  digitizer 
on  the  Tektronix  R4010  terminal.  The  operator  is  prompted  for  a 
comment,  with  a maximvim  length  of  24  characters,  and  a hard  copy  of 
the  plot  is  produced  on  the  line  printer.  The  plot  is  scaled  so 
that  the  vertical  units  per  division  are  a readily  usable  number, 
that  is,  1,  2,  or  5 times  some  power  of  10.  Operator  comments  are 
written  into  the  shot  file  (Sssss02.DAT) . (Description  continued  on 
p.  38.) 


Flowchart:  SCACPY 
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The  copy  of  SYSCON  stored  as  a part  of  the  shot  file  is  used  in  an 
internal  COMMON  block  rather  than  the  copy  in  the  SYSCON  partition. 
(See  the  writeup  on  subroutine  FSCIN.) 

If  program  SCACPY  is  run  in  the  normal  data-taking  sequence,  the 
disc  file  version  of  SYSCON  will  point  to  the  correct  shot  file,  but 
if  it  is  run  out  of  sequence,  programs  SHOTNO  and  SAVCON  will  have 
to  be  run  first. 


SCALE  SCA 

FORTI^N’'  Written  May  1976 

Modified  January  1977 

Called  Subroutines: 

ATNSCH,  CALCSF,  PRBSCH,  SCADAT,  XCHSCH 
Files; 

DKO: [100, 1001ATNCAL.DAT,  DKO: [100 , 100] PRBCAL.DAT, 
DKO: [100, 100] XCHCAL.DAT,  DKl : [100 , 100] MAIN . DAT 

I/O  Device: 


TI: 

COMMON  Area: 

SYSCON  partition 
Description; 

Program  SCALE  calculates  the  overall  scale  factor  and  data  link 
delay  (At  ) for  each  enabled  digitizer.  The  raw  digitizer  data 

Od  tcl 

are  normalized,  scaled  and  stored  in  disc  file  MAIN.DAT.  The  delays 
and  scale  factors  are  stored  in  SYSCON. 

Program  SCALE  checks  the  knob  readout  information  stored  with  the 
raw  data  and  will  report  discrepancies  found  in  standard  SASP  error 
codes.  Such  an  error  does  not  stop  the  data  reduction  process,  but 
it  does  flag  out  the  digitizer  on  which  the  error  occurred.  That 
digitizer  will  remain  discibled  until  the  flag  is  manually  cleared  by 
the  operator  using  either  progrcim  FLAG  or  CLEAR. 
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If  a data  overflow  error  occurs  in  program  MORDAT,  a knob  error  will 
be  generated  for  that  digitizer  by  program  SCALE  because  the  knob 
data  are  actually  missing  from  tne  shot  file. 


Algorithms: 


The  contributions  to  the  overall  system  gain,  ^^gys'  decibels  are 
given  in  the  following  equation: 


SYS 


*^TA  *^DL 


where 

= attenuator  gain, 

Gp  = probe  gain, 

Gj^  = device  (a  second  attenuator)  gain, 

G = transmitter  balun  gain, 

6 

G = transmitter  attenuator  gain, 

TA 

G = transmission  channel  gain. 

DXj 

Gp^j^  is  calculated  by  program  CHKCAL  using  the  equation 


G =20  log^  (|CTP|  - I CTZ I ) /calibrator  output  voltage, 
DL  10 


where 

CTP  = operator  measured  calibration  trace  peak, 
CTZ  = operator  measured  calibration  trace  zero. 


This  includes  any  attenuator  between  the  optical  receiver  and  the 
digitizer. 

The  scale  factor  is  the  overall  system  gain  in  units  of  digitizer 
volts  divided  by  the  units  of  the  measurement  probe: 


''sYS  ■ lo’IJ  (=SYS^“) 
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The  normalized  data  are  in  units  of  digitizer  points.  There  are  64 
such  points  per  vertical  division.  Therefore,  scaled  data  values 
are  calculated  by  the  following  equation: 

Scaled  (selected  units)  = 


Normalized  (points)  x vertical  sensitivity  (V/div) 

64  (points/div)  x ^SYS  f^/selected  units) 

The  overall  system  delay,  is  computed  from  the  following 

equation : 


D = D 
SYS  A 


+ Dp  + 


TC 


+ D_ 


D + D 
DL  RC 


where 

= attenuator  delay. 

Dp  = probe  delay, 

Dtc  = pretransmitter  cable  delay, 

= device  (a  second  attenuator)  delay, 
D = transmission  channel  delay, 

ULj 

D = postreceiver  delay. 

RC. 

SCAVP  SVP 

FORTRAN  Written  October  1976 

Modified  January  and  March  1977 


Called  Subroutines: 

FSCIN,  PRBSCH,  GRAPIT/,  AN0T8,  DATFIO  (OPENS,  READB,  READR,  CLOSES) 
Files : 

DKO: (100, 100 1SYSC0N.DAT,  DKO : [100 , 100] PRBCAL . DAT, 

DKl : (100 , 100] Sssss02.DAT , DKl : [100, 100] VDATA.BIN 
(ssss  = shot  number) 
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COMMON  Areas: 


SYSCON  internal,  NOFU3AT,  PRBCAL,  PARAM 
Description: 

Program  SCAVP  produces  disc  file  VDATA.BIN  containing  the  plots  of 
the  finalized  scaled  data  from  each  enabled  digitizer.  These  plots 
are  scaled  so  that  the  vertical  units  per  division  are  a readily 
usable  number,  that  is,  1,  2,  or  5 times  some  power  of  10. 

The  copy  of  SYSCON  stored  as  a part  of  the  shot  file  is  used  in  an 
internal  COMMON  block  rather  than  the  copy  in  the  SYSCON  partition. 
(See  the  writeup  on  subroutine  FSCIN.) 

If  program  SCAVP  is  run  in  the  normal  data- taking  sequence,  the  disc 
copy  of  SYSCON  will  point  to  the  correct  shot  file,  but  if  it  is  run 
out  of  sequence,  programs  SHOTNO  and  SAVCON  will  have  to  be  run 
first. 

Versatec  Corporation  program  VCOPY  must  be  run  to  convert  disc  file 
VDATA.BIN  to  actual  commands  to  the  line  printer  to  produce  the 
plots. 


SETFLG  SFL 

FORTRAN  Written  January  1977 

Called  Subroutines: 

ANSWER,  CHNERR,  DCDBIT,  DIGERR,  PAGE 
File: 

DKO : [ 100 , 100 ] FLAG . DAT 
I/O  Device : 

TI  : 

COMMON  Area: 

SYSCON  partition 
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Description; 

Program  SETFLG,  a superset  of  program  FLAG,  writes  the  digitizer  and 
channel  flag  information  to  file  FLAG.DAT.  Program  SETFLG  queries 
the  operator  with  the  same  questions  as  program  FLAG  does. 


SHOTNO  SHO 

FORTRAN  Written  April  1976 

Modified  January  1977 

Called  Subroutines: 

ASDCD,  FXDCD,  lASCII,  INPUT 

I/O  Device; 


TI : 

COMMON  Area; 

SYSCON  partition 
Description; 

Program  SHOTNO  is  run  to  enter  the  simulator  code  (for  example,  02 
for  the  OWL  II  machine)  and  the  shot  number  into  SYSCON.  Standard 
SASP  terminal  input  conventions  apply.  A null  input  for  the 
simulator  code  is  permissible  if  it  has  already  been  entered  into 
SYSCON  from  a previous  invocation  of  program  SHOTNO.  A four-digit 
number  must  be  entered  for  the  shot  number.  This  information  is 
stored  in  SYSCON  both  as  an  integer  and  in  ASCII  format;  hence, 
leading  zeros  must  be  supplied. 

Program  SHOTNO  is  the  means  through  which  the  current  shot  file  i. 
established  and  past  shot  files  are  referenced. 

The  location  for  running  program  SHOTNO  has  been  changed  in  the 
standard  data  sequence.  It  is  now  run  before  program  CHKCAL  since 
CHKCAL  now  prints  the  shot  number  on  the  graphs  of  the  calibration 
pulses. 
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SNAPIT 


SNA 


MACRO-11  Written  March  1977 

I/O  Device: 


LPO: 

COMMON  Area; 

SYSCON  partition 
Description: 

Program  SNAPIT  is  a diagnostic  tool  for  use  only  by  the  system 
programmer.  Using  the  system  SNAPS  macro,  it  dvimps  the  SYSCON 
header  and  arrays  IDIG  and  ICHAN  in  a standard  RSX-llM  dump 
format:  octal,  ASCII,  and  RAD50. 


SUMERR  SUM 

FORTRAN  Written  June  1976 

Modified  January  1977 

Called  Subroutine: 

DCDBIT 

I/O  Device: 

LPO: 

COM^iON  Area: 

SYSCON  partition 
Description: 

Program  SUMERR  prints  the  error  codes  which  have  been  set  for  each 
digitizer  and  channel  in  the  system  configuration. 
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SYSCHK 


CHK 


FORTRAN  Written  May  1976 

Modified  January  1977 

Called  Subroutines: 


ATNSCH,  PRBSCH 
Files : 

DKO: [100, 100 1ATNCAL.DAT,  DKO: [ 100 , 100] PRBCAL .DAT 
I/O  Device: 


LPO: 

COMMON  Area: 

SYSCON  partition 
Description: 

Program  SYSCHK  checks  the  validity  of  the  following  entries  in 
SYSCON:  attenuator  identification  (ID),  probe  ID,  device  ID, 
transmitter  attenuation,  sweep  rate,  vertical  sensitivity,  and 
ba '.eline  trace  offset.  Only  those  items  found  to  be  in  error  are 
printed;  a blank  implies  a valid  entry. 


SYSDMP  SYS 

FORTRAN  Written  June  1976 

Modified  January  1977 

I/O  Device : 

LPO: 

COMMON  Area: 

SYSCON  partition 
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Description: 


Program  SYSDMP  produces  a quick- look  dump  of  the  meaningful  contents 
of  SYSCON.  It  is  a diagnostic  tool  for  the  operator's  use  only. 
Digitizer  UNIBUS  addresses  and  digitizer  and  channel  error  flags  are 
printed  in  octal;  all  other  numbers  are  decimal. 


TABIN  TAB 

FORTRAN  Written  April  1976 

Modified  October  1976,  January  1977 

Called  Subroutines: 

ASDCD,  DSKERR,  FXDCD,  lASCII,  INPUT,  SCIO(SCOUT),  SCMAIN 
Files : 


DKl: [100, 100 JMAIN.DAT,  DKl : [ 100 , 100 ] Sssss02 .DAT , 
DKO: [100, 100] SYSCON.DAT 
(ssss  = shot  number) 

I/O  Device: 


TI: 

COMMON  Area; 

SYSCON  partition 

Description; 

Program  TABIN  queries  the  operator  for  two  sets  of  information.  The 
first  set  asks  for  the  type  of  wire  used  in  the  OWL  II  machine,  the 
pulse  charge,  the  tank  vacuum  pressure,  the  voltage  diode  peak,  the 
current  diode  peak  and  a comment  not  to  exceed  30  characters.  The 
second  set  asks  for  a code  for  the  debris  shield,  the  number  of 
thicknesses  of  debris  shield,  a code  for  the  filter  and  the  filter 
thickness.  This  information  is  stored  in  SYSCON  and  SYSCON  is  then 
written  into  file  MAIN.DAT.  Following  this  operation,  the  name  of 
file  MAIN.DAT  is  changed  to  Sssss02.DAT.  As  a final  step,  SYSCON  is 
written  into  disc  file  SYSCON.DAT. 
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TABLES 


TBL 


FORTRAN  Written  March  1977 

Called  Subroutines: 

FSCIN,  DATFIO  (OPENS,  READR,  CLOSES),  ATNSCH,  PRBSCH,  XCHSCH,  XCHDRI 
Files : 

DKO: [100, 100] SYSCON.DAT,  DKO : [100, 100lATNCAL.DAT, 

DKO: [100, 100 1PRBCAL.DAT,  DKO: [100, 100] XCHCAL. DAT, 

DKl: [100,100] Sssss02.DAT 
(ssss  = shot  number) 

I/O  Device: 


LPO: 

COMMON  Areas: 

SYSCON  internal,  PRBCAL,  ATNCAL,  XCHHDR,  XCHCAL 
Description : 

Program  TABLES  produces  three  tables  of  summary  information:  a 

table  of  system  gains,  a table  of  system  delays,  and  a table  of  the 

transmitter  number  and  calibration  voltage  for  each  enabled  channel 

plus  an  error  summary  for  each  enabled  digitizer.  The  formats  of 

these  three  tables  were  prescribed  by  the  Mission  Research  -v. 

Corporation  of  San  Diego,  California.  These  dicta  were  followed 

exactly. 
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Flowchart: 


TABLES 


47 


Flowchart: 


TABLES  (Cont'd) 
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USRCOM  USR 

FORTRAN  Written  May  1976 

Modified  January  1977 

Called  Subroutines: 

ASDCD,  INPUT,  UCOUT,  FSCIN 

File: 

DKl: [100, 100] Sssss02.DAT 
(ssss  = shot  number) 

I/O  Device: 


TI : 

COMMON  Area: 

SYSCON  internal 
Description : 

Program  USRCOM  allows  the  operator  to  input  up  to  a 64-character 
comment  for  each  enabled  digitizer  in  the  system  configuration. 
These  comments  are  written  into  the  shot  file. 


VCOPY  VCO 

FORTRAN  Written  by  Versatec  Corporation 

Modified  January  1977 


Files : 

DKl: [100, 1001VPLOT.BIN,  DKl: [ 100 , 100] VDATA. BIN, 
DKl : [ 100 , 100 ] VWORK . BIN 

I/O  Devices: 


TI : , LP : 
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Description: 


Program  VCOPY  uses  file  VPLOT.BIN  as  input  and  generates  the  scaled 
plots.  The  program  has  three  options:  (1)  to  produce  the  graphs 
band  by  band  and  print  them  on  the  Versatec  line  printer,  (2)  to 
produce  the  entire  graph  and  then  print  it  on  the  Versatec  line 
printer,  and  (3)  to  produce  all  of  the  graphs  and  store  them  in  file 
VDATA.BIN.  A "band"  is  1024  words  of  plot  data,  approximately  h in. 
(1.25  cm)  of  a graph.  On  TI:,  VCOPY  asks  the  operator  which  option 
he  desires.  Under  option  2,  it  also  asks  how  many  cooies  of  each 
graph  are  to  be  made. 

Normally,  option  3 is  used  and  the  graphs  are  printed  by  using  pro- 
gram FPLOT.  VCOPY  is  checkpointable  and  runs  as  a background  pro- 
gram; it  requires  about  2h  minutes  per  graph. 


Program  XCH  prompts  for  input  with  "X:";  an  immediate  carriage 
return  will  terminate  the  program.  Each  mode  of  program  XCH,  with 
the  exception  of  PA  and  HE,  also  will  prompt  for  input;  an  immediate 
carriage  return  will  terminate  that  mode  and  restore  the  general 
prompt  "X:";  invalid  items  are  flagged  with  the  symbol  "XX"  printed 
below  the  entry  and  a reinput  of  the  bad  data  is  requested. 
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3.  INDIVIDUAL  SUBROUTINE  DOCUMENTATION 

The  following  standard  entries  have  been  used  to  document  the  SASP 
subroutines . 

Entry  Definition 

Subroutine  name  The  subroutine  name 

Date  of  documentation  The  date  of  documentation 
Language 
Date  written 
Modified 
Files 

I/O  Devices 
Arguments 

Description 
Algorithms 
COMMON  Areas 
Flowchart 
Typical  Output 

The  above  entries  are  included  only  as  needed. 


DEC  PDP  11  FORTRAN  or  MACRO-11 

The  date  that  this  subroutine  was  written 

Dates  on  which  the  subroutine  was  modified 

Disc  files  referenced  by  the  subroutine 

Input/output  devices  utilised  other  than  disc 

The  list  of  arguments  passed  to  or  from  the 
subroutine 

A general  narrative  description 

A description  of  any  significant  algorithms  used 
COMMON  areas 
The  flowchart 

The  output  from  the  subroutine 
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ABSPKV 


FORTRAN  Written  October  1976 

Argument: 

ABIC  Returns  the  magnitude  of  the  peak  element  of  array  ATC(512). 
COMMON  Area: 

NORDAT 

Description: 

ABSPKV  is  called  by  subroutine  GRASCA  from  programs  SCACPY  and 
SCAVP.  It  computes  the  absolute  peak  value  of  the  normalized  scaled 
data  array  ATC. 


ANOCLR 

FORTRAN  Written  February  1977 

Arguments: 

CNO  Name  of  the  calorimeter  in  ASCII 

CAL  Value,  in  calories  per  square  centimeter,  measured  by  that 
calorimeter 

UNC  Calculated  uncertainty  of  the  measured  value. 

COMMON  Area: 

SYSCON  partition 
Description: 

Subroutine  ANOCLR  annotates  the  graphs  of  the  calorimeter  data  pro- 
duced by  program  PLTCLR. 
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ANOMRK 


FORTRAN  Written  May  1976 

Modified  October  1976 

I/O  Device: 


TTO  : 

Argument: 

N7912  The  digitizer  number 
COMMON  Area: 

SYSCON  partition 
Description : 

ANOMRK  is  used  to  annotate  the  graphs  produced  by  program  MARK.  All 
write  statement  positioning  on  the  Tektronix  R4010  terminal  screen 
is  done  by  using  the  Tektronix  Terminal  Control  System  graphics 
package . 


ANOSCA 

FORTRAN  Written  May  1976 

Modified  October  1976 

File: 

DKO: [100, 100] PRBCAL.DAT 
I/O  Device: 

TTO: 

Arguments : 

N7912  Digitizer  number 

YMAX  Vertical  scale  factor  scaled  so  that  0.1  ^ YMAX  ^ 1 

N Power  of  10  associated  with  YMAX  so  that  the  actual  vertical 

scale  factor  equals  YMAX  x 

COMMON  Areas: 

SYSCON,  PRBCAL,  PARAM 
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Description: 


Subroutine  ANOSCA  annotates  the  final  scaled  graphs  produced  by 
program  SCACPY.  All  parameter  values  shown  on  the  graph  come  from 
the  COMMON  blocks.  SYSCON  and  PARAM  are  read  from  the  shot  file; 
PRBCAL  is  taken  from  the  file  PRBCAL.DAT. 


ANOT8 

FORTRAN  Written  January  1977 


Files; 

DKl: [100,100]VPLOT,BIN,  DKO : [100 , 100 ] PRBCAL .DAT 


Arguments : 


N7912  Digitizer  number 

YMAX  Vertical  scale  factor  scaled  so  that  0.1  YMAX  ^ 1 

N Power  of  10  associated  with  YMAX  so  that  the  actual  vertical 

scale  factor  equals  YMAX  ^ 10^ 


COMMON  Areas ; 


SYSCON,  PRBCAL,  PARAM 
Description: 

Subroutine  ANOT8  annotates  the  final  scaled  graphs  produced  by  pro- 
gram SCAVP.  All  parameter  values  shown  on  the  graph  come  from  the 
COMMON  blocks.  SYSCON  and  PARAM  are  read  from  the  shot  file;  PRBCAL 
is  taken  from  the  file  PRBCAL.DAT. 


ANSWER 

MACRO- 11  Written  May  1976 

I/O  Device ; 

TI: 

Argument ; 

ANSWER  0 No 
1 Yes 
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r 


Description: 

Subroutine  ANSWER  accepts  a single  character  from  the  terminal.  If 
and  only  if  this  character  is  the  letter  Y,  a one  is  returned;  any 
other  character  or  a null  input  is  interpreted  as  an  N and  a zero  is 
returned. 


ASCBIN 


MACRO- 11 


Written  December  1976 


Arguments : 

NOB  Number  of  bytes  to  be  processed 
INPUT  Address  of  input  buffer 
OUTPUT  Address  of  output  buffer 


Description: 

Subroutine  ASCBIN  converts  ASCII  numeric  input  to  integer  format 
numbers.  The  maximum  nvunber  that  can  be  converted  is  32767. 


ASDCD 
MACRO- 11 

Arguments : 


Written  May  1976 
Modified  January  1977 


Null  flag:  1 The  first  character  is  blank. 

0 The  input  has  been  received. 

-1  The  field  is  empty. 

-2  The  field  does  not  exist. 

Field  number:  A pointer  to  the  desired  field  in  the  input  stream 

Output  character  string:  A pointer  to  the  storage  area  for  the  re- 
quested output 

Count  of  requested  characters : INTEGER  count 


57 


Description: 

Subroutine  ASDCD  passes  an  ASCII  field  from  the  terminal  input 
buffer.  The  action  taken  is  a function  of  the  null  flag: 

Null  flag  is  zero:  the  output  string  is  blank  filled. 

Characters  are  then  transferred  from  the  requested  field  in  the 
input  stream  until  that  field  is  exhausted  or  the  requested 
number  of  characters  has  been  transferred. 

Null  flag  is  one:  the  entire  output  string  is  set  to  blanks. 

Null  flag  is  negative:  no  action  is  taken.  The  output  string 
remains  unchanged. 


ASTSC 

MACRO-11  Written  November  1976 

COMMON  Area: 


ASTV 

ENTRY  points : 

ASTSET 

ASTCLR 

ESCAPE  Asynchronous  system  trap  (AST)  entry  point 
Description: 

Entry  point  ASTSET  issues  a. QIO$  macro  to  read  one  character  from 
TTl : , with  an  AST  entry  request  for  location  ESCAPE.  The  variable 
STOP  in  COMMON  area  ASTV  is  set  to  a value  of  zero. 

Entry  point  ASTCLR  issues  a QIO$  macro  with  the  I/O  kill  (10. KILL) 
condition  to  clear  the  I/O  request  generated  by  a call  to  ASTSET. 
The  variable  STOP  in  COMMON  area  ASTV  is  set  to  a value  of  zero. 

The  AST  entry  point  ESCAPE  is  entered  through  operating  system  con- 
trol when  the  escape  key  is  pressed  on  TTl:.  The  variable  STOP  in 
COMMON  area  ASTV  is  set  to  minus  one  and  an  AST  exit  macro  (ASTX$S) 
is  issued. 

Subroutine  ASTSC  is  used  by  program  RAWCPY  to  force  the  program  to 
the  next  set  of  points  to  be  plotted  when  the  escape  key  is  pressed 
on  TTl : . 
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ATNREF 


MACRO- 11  Written  May  1976 

File : 

DKO : [ 10  0 , 1 00 ] ATNCAL . DAT 


Argument : 

Entry  point  ARDENT:  Device  identification 
Other  entry  points:  (No  arguments) 


Description: 

ATNREF  is  a multiple  entry  point  subroutine  used  by  program  ATN  for 
all  references  to  disc  file  ATNCAL.DAT.  This  file  is  opened  and 
closed  with  each  call  to  the  subroutine.  Entry  point  functions  are 
described  below: 

AINIT  Initialize  the  last  record  pointer  and  clear  the 

current  record  pointer. 

ANEW  Create  a new  disc  file,  with  the  next -higher  version 

number,  containing  only  an  end-of-file  record. 

ARDENT  Search  through  the  disc  file  for  an  entry  matching 

the  device  identification  in  the  argument.  A record 
consisting  of  all  minus  ones  signifies  that  no 
matching  record  was  found. 

ARDNEX  Get  the  next  record  from  the  disc  file. 


ARESET  Clear  the  current  record  pointer. 

AWRADD  Append  a new  record  to  the  end  of  the  disc  file. 

AWRENT  Rewrite  and,  hence,  update  the  current  disc  file 

record. 
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ATNSCH 


MACRO-11  Written  May  1976 

Modified  January  1977 


File; 

DKO : [ 100 , 100 ] ATNCAL . DAT 
I/O  Device: 


TI: 

Argument : 

Device  identification 
Description: 

Subroutine  ATNSCH  searches  disc  file  ATNCAL.DAT  for  the  record  cor- 
responding to  the  identification  in  the  argument  and  returns  this 
record  if  it  finds  it.  If  the  record  is  not  found,  an  end-of-file 
message  is  displayed  on  TI : . Disc  file  ATNCAL.DAT  is  opened  and 
closed  with  each  call  to  the  subroutine. 


ATTEN 

MACRO-11  Written  July  1976 

Arguments: 

Attenuator  setting 

Mode  setting:  0 Turn  on  transmitters;  reverify  attenuator  settings. 

1 Turn  off  transmitters. 

2 Generate  calibration  sequence. 

Transmitter  address 

Error  flag 

Entry  points: 

ATTEN 

TRIGB 
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Description: 

Entry  point  ATTEN  controls  the  operation  of  the  fiber  optic  trans- 
mitters and  the  setting  and  verification  of  the  attenuators  within 
these  transmitters.  Actual  control  of  the  transmitters  is  by  the 
transmitter  control  box,  which  interfaces  to  the  computer  through  a 
DR-llK  circuit  board.  A turn-on  command  causes  the  transmitter  con- 
trol box  to  generate  a sequence  of  commands  to  the  transmitter. 
These  commands  turn  the  transmitter  on,  set  the  remote  attenuator, 
accept  the  attenuator  verification  information  from  the  transmitter, 
and  return  this  infoirmation,  through  the  DR-llK  circuit  board  to  the 
subroutine.  A turn-on  command  to  a transmitter  that  is  already  on 
causes  this  transmitter  to  return  the  attenuator  verification  infor- 
mation. This  procedure  is  used  to  reverify  the  attenuator  settings 
in  program  CONDAT  after  the  data  shot. 

A turnoff  command  simply  turns  that  transmitter  off. 

A calibration  sequence  command  sends  a request  for  attenuator  veri- 
fication to  each  transmitter  while  the  transmitter  is  on.  This 
command  causes  the  transmitter  to  resend  the  attenuator  verification 
information,  which  is  ignored,  and  to  turn  on  the  internal  calibra- 
tor. The  digitizers  are  triggered,  and  these  calibration  signals 
are  recorded.  The  fiducial  marker  pulse  is  inhibited  during  the 
calibration  sequence. 

Entry  point  TRIGB  is  used  to  send  a baseline  trigger  command  to  the 
transmitter  control  box.  The  fiducial  marker  is  inhibited  during 
the  baseline  trigger  sequence. 

An  internal  subroutine,  SEND,  is  used  to  actually  send  the  commands 
to  the  transmitter  control  box  and  to  receive  information  from  this 
box . 

BASATC 

MACRO-11  Written  April  1976 

Arguments : 

Bloom  parameter 
Error  word 

Description; 

Subroutine  BASATC  performs  the  average  to  center  of  trace  (ATC)  step 
of  the  baseline  normalization  process.  The  bloom  parameter  is  cal- 
culated as  the  average  separation  in  digitizer  points  between  each 
set  of  dual  vertical  readings  obtained  from  the  digitizer.  The 
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value  of  the  bloom  parameter  is  checked  to  insure  that  it  is  between 
the  values  of  variables  BLMMIN  and  BLMMAX;  if  it  is  outside  of  this 
range,  the  error  word  is  set  to  a value  of  nine.  The  count  of  the 
number  of  dual  verticals  (readings  with  two  and  only  two  vertical 
values)  is  compared  with  the  value  of  variable  NPTMIN  and,  if  this 
count  is  found  to  be  less  than  NPTMIN,  the  error  word  is  set  to  a 
value  of  nine.  These  three  variables  are  defined  in  the  SYMDEF 
macro. 


BUSY 

MACRO- 11 
Arguments : 


Written  April  1976 


R1  The  digitizer  UNIBUS  address 
R2  An  error  word 


Description: 

Subroutine  BUSY  allows  the  digitizer,  whose  UNIBUS  address  is  in 
register  one  (Rl) , a time  equal  to  the  value  of  variable  CNTBZY 
seconds  to  exit  from  a busy  status.  If  the  digitizer  status  is 
still  busy  after  that  time,  register  two  (R2)  is  set  to  a value  of 
four.  Variable  CNTBZY  is  defined  in  the  SYMDEF  macro. 


CALATC 

MACRO-11  Written  April  1976 

Argument : 

Bloom  parameter  for  the  specified  digitizer 
Description: 

Subroutine  CALATC  performs  the  average  to  center  of  trace  (ATC)  step 
of  the  normalization  process  for  the  calibration  trace.  The  bloom 
parameter  is  calculated  by  subroutine  BASATC. 


CALCSF 

MACRO-11  Written  May  1976 

Modified  January  1977 
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Files : 


DKO: [100, 1001ATNCAL.DAT,  DKO: [100, 100] PRBCAL.DAT, 

DKO: [100, 1001XCHCAL.DAT 

COMMON  Area: 

SYSCON  partition 

Arguments : 

Digitizer  number 
System  gain  in  decibels 

Description: 

Subroutine  CALCSF  calculates  the  total  system  gain  and  delay  for 
each  digitizer.  The  delay  is  stored  in  SYSCON;  the  gain  is  returned 
to  the  calling  program  (SCALE) . 

Algorithms  t 

The  writeup  for  program  SCALE  gives  the  algorithms  used  by  this 
subroutine. 


CALIB  Source  File:  CALSPC.MAC 

MACRO-11  Written  July  1976 

Modified  January  and  March  1977 

I/O  Devices: 

TI : , attenuator  control  unit 
Argument: 

MODE  0 Turn  transmitter  on. 

1 Turn  trcinsmitter  off. 

2 Generate  calibrate  sequence. 

Description: 

Subroutine  CALIB  handles  the  routing  of  commands  to  the  attenuator 
control  unit  to  turn  the  transmitters  on  and  off  and  to  generate  the 
calibration- strobe  signal  and  trigger  for  the  digitizers.  Commands 
are  sent  to  the  enabled  channels  only.  Errors  are  listed,  but  the 
channels  on  which  errors  occur  are  not  flagged  out. 
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A similar  subroutine  CALIB,  source  file  CALIB.MAC,  not  currently 
used  in  SASP,  is  available.  The  only  difference  between  these  two 
subprograms  is  that  this  second  version  does  flag  out  channels  on 
which  errors  occur. 


CALOR 

FORTRAN  Written  July  1976 

Modified  October  1976 


Arguments : 


NTZERO 

TDEAD 

AD 

BD 

C0EF3 

C0EF4 

TMAX 

NACNT 

NBCNT 

A 

B 

lERR 


(No  longer  in  use) 

(No  longer  in  use) 

Uncertainty  value  for  calorimeter  A 
Uncertainty  value  for  calorimeter  B 
(No  longer  in  use) 

(No  longer  in  use) 

Maximum  measurement  time  for  both  calorimeters 
Number  of  readings  taken  from  calorimeter  A 
Number  of  readings  taken  from  calorimeter  B 

Calculated  number  of  calories  per  square  centimeter  for  cal- 
orimeter A 

Calculated  number  of  calories  per  square  centimeter  for  cal- 
orimeter B 

Error  flag — nonzero  value  indicates  device  timeout 


COMMON  Area: 


CLRDAT 

Description: 

Subroutine  CALOR  calculates  the  number  of  calories  per  square  centi- 
meter incident  on  each  calorimeter  and  a measure  of  the  uncertainty 
of  this  measurement. 


CALPLT 

MACRO-11  Written  August  1976 

I/O  Device: 

TTO : 

Arguments ; 


Number  of  data  point  pairs 
Address  of  data  array 
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Description: 


Subroutine  CALPLT  graphs  the  calorimeter  data  on  the  Tektronix  R4010 
terminal  (TTO:).  The  actual  graphing  is  done  by  using  the  Tektronix 
Terminal  Control  System  software  package. 


CHACNT 

MACRO- 11  Written  September  1976 

Arguments : 

Address  of  character  string  to  be  examined 
Maximum  length  of  this  character  string 
Number  of  nonblank  characters  in  string 

Description: 

Subroutine  CHACNT  counts  the  number  of  nonblank  characters  in  the 
input  string  and  returns  this  count  in  an  integer  format  number. 


CHKTRG 

MACRO- 11  Written  March  1976 

I/O  Devices : 

TI:,  digitizers 
COMMON  Area: 

SYSCON  partition 
Description : 

Subroutine  CHKTRG  checks  each  enabled  digitizer  to  determine  if  the 
sweep  was  triggered.  The  digitizer  interrupt  handler  subroutine 
INTDIG  locks  the  memory  of  an  interrupting  digitizer;  therefore, 
subroutine  CHKTRG  uses  this  locked  memory  status  as  an_ indication 
that  the  digitizer  sweep  has  triggered.  An  error  code  of  six  is 
flagged  and  listed  for  those  digitizers  which  do  not  show  a 
triggered  status  after  a time  equal  to  the  value  of  variable  CNTCMD 
in  seconds.  The  variable  CNTCMD  is  defined  in  the  SYMDEF  macro. 


CHNERR 


MACRO-11  Written  April  1976 

COMMON  Area: 

SYSCON  partition 

Arguments : 

Error  word 
Dummy  argument 
Channel  number 

Description: 

Subroutine  CHNERR  flags  channel  errors  and  disables  the  associated 
digitizers.  A BIS  (bit  set)  instruction  is  used  to  incorporate  the 
current  error  into  the  channel  error  word  so  that  no  previous  error 
flags  will  be  lost. 


CLRCBD 

MACRO-11  Written  March  1976 

I/O  Devices : 

Digitizer  controller  circuit  boards 
Argument : 

Number  of  digitizer  controller  circuit  boards 
Description : 

Subroutine  CLRCBD  clears  the  digitizer  controller  boards,  hence 
disabling  digitizer  interrupts.  UNIBUS  addresses  used  are  these: 

ADRCBl  + n >■'  IOOOq,  n = 0,  1,  . . . , m - 1 , 

O 

where  m is  the  passed  argument. 

ADRCBl  = 164000  and  is  defined  in  the  SYMDEF  macro. 

O 
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CMDDIG 

MACRO-11  Written  July  1976 

I/O  Devices : 

Tl:,  digitizers 
Arguments : 

Set  or  clear  mode  (l|o) 

Command  word 
Digitizer  status  word 

COMMON  Area: 

SYSCON  partition 

Description; 

Subroutine  CMDDIG  is  used  to  send  commands  to  the  enabled  digitizers 
and  to  confirm  that  they  have  been  executed.  CMDDIG  can  handle  any 
digitizer  command  except  "read  data."  The  status  word  passed  to 
CMDDIG  is  the  expected  digitizer  status  after  command  execution  and 
is  compared  to  the  actual  digitizer  status  using  a BIT  (bit  test) 
instruction  to  confirm  that  the  command  has  been  executed.  If 
status  bits  are  set  by  the  command,  the  mode  argument  must  be  set; 
if  status  bits  are  cleared  by  the  command,  the  mode  must  be  clear. 
Command  and  status  words  are  defined  in  the  SYMDEF  macro. 

If  a digitizer  remains  busy  for  a time  equal  to  the  value  of 
variable  CNTCMD  in  seconds,  it  is  flagged  with  an  error  code  of 
four.  If  a command  does  not  execute,  repeated  attempts  are  made  for 
a duration  of  CNTCMD  seconds,  and  if  the  command  still  has  not  been 
executed,  the  digitizer  is  flagged  with  an  error  code  of  five. 

Each  command  is  sent  once  to  each  digitizer  before  the  check  for 
execution  is  made.  The  check  re-entry  process  is  done  one  digitizer 
at  a time,  since  some  commands  require  a short  time  for  execution, 
this  method  causes  these  times  to  occur  in  parallel,  rather  than  as 
a composite  sum. 
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DATATC 


MACRO-11  Written  April  1976 

Argument ; 

Bloom  parameter 
Description: 

Subroutine  DATATC  performs  the  average  to  center  of  trace  (ATC) 
portion  of  the  normalization  of  the  actual  shot  data.  Its  operation 
is  the  same  as  that  of  subroutine  CALATC,  except  that  the  DATATC 
operations  are  done  by  using  floating  point  numbers. 


DATFIO 

MACRO-11  Written  July  1976 

Modified  March  and  May  1977 

File : 

DKl : [100, 100] file  name 
I/O  Device: 


TI: 


Arguments : 

See  lists  under  each  entry  point. 


Entry  Points: 

Name 

Arguments 

CLOSES 

none 

OPENS 

ncune,  length 

READB 

adr,  nblk,  iblk 

RE  ADR 

adr,  words,  recno 

WRITES 

adr,  nblk,  iblk 

WRITER 

adr,  words,  recno 
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where 

"name"  is  an  array  which  contains  the  file  name  from  character 
14  through  character  "length"  inclusively. 

"length"  is  the  position  of  the  last  byte  in  the  file  name. 

"adr"  is  the  address  of  the  first  word  of  the  array  for  data 
transfer. 

"nblk"  is  the  number  of  256-word  disc  blocks  to  be  transferred. 

"iblk"  is  the  relative  block  number  of  the  first  block  to  be 
transferred. 

"words"  is  the  number  of  words  to  be  transferred;  its  value 
must  be  an  even  divisor  of  256. 

"recno"  is  a pointer  to  the  record  number  in  the  file,  where 
each  record  is  of  "words"  length. 

Description: 

Subroutine  DATFIO  provides  an  interface  between  FORTRAN  and  the  SASP 
Files-11  format  data  files.  DATFIO  performs  block  I/O  operations 
only,  but  it  permits  the  user  to  simulate  record  I/O.  Record 
transfers  are  buffered  by  disc  blocks  and  may  not  result  in  actual 
disc  read  or  write  operations. 

The  function  of  each  entry  point  is  described  below: 

CLOSES  Writes  out  the  last  disc  block  from  a record 

transfer  and  closes  the  file;  for  a block 
transfer  operation  it  just  closes  the  file. 

OPENS  Opens  the  file. 

READB  Reads  in  "nblk"  disc  blocks.  If  a record  write 

was  the  preceding  operation,  the  last  disc  block 
is  written  to  the  file  before  the  read  operation 
begins . 
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PEADR 


Calculates  the  disc  block  required  for  the 
operation  and,  if  it  is  not  the  current  disc 
block  in  memory,  reads  it  into  memory.  Starting 
at  "adr"  the  desired  record  from  this  block  is 
then  transferred  to  the  array.  If  a record 
write  was  the  preceding  operation,  that  disc 
block  is  written  to  the  file  before  any  other 
operations  are  done. 

WRITES  Writes  "nblk"  disc  blocks  from  the  array 

starting  at  "adr"  into  the  file  starting  at 
relative  disc  block  "iblk".  If  the  preceding 
operation  was  a record  write,  that  disc  block  is 
written  to  the  file  before  any  other  operations 
are  done. 

WRITER  Calculates  the  relative  disc  block  required  for 

the  write  operation  and,  if  it  is  different  from 
the  block  currently  in  memory,  writes  the 
current  block  to  the  file  and  then  reads  the  new 
block  into  memory.  It  then  transfers  "words" 
words  from  the  array  starting  at  "adr"  to  the 
point  in  the  block  pointed  to  by  "recno". 


DCDBIT 

MACRO- 11  Written  May  1976 

Arguments : 

Selection  word 

Table  of  16  four-character  codes  in  ASCII 
Output  string 

Description; 

Subroutine  DCDBIT  is  a bit  decoder.  Each  bit  in  the  selection  word 
corresponds  to  a table  entry,  so  that  bit  15  corresponds  to  the 
first  entry  and  bit  0,  to  the  last.  Each  bit  in  the  selection  word 
that  is  set  (a  one)  causes  the  corresponding  table  entry  to  be 
placed  in  the  output  string.  The  output  string  will  have  a byte 
length  equal  to  four  times  the  number  of  bits  set  to  one  in  the 
selection  word.  The  selection  word  is  scanned  from  bit  15  through 
bit  0. 


DIGERR 


MACRO-11  Written  April  1976 

Arguments : 

Error  word 
Digitizer  number 
Dummy  argximent 

COMMON  Area: 

SYSCON  partition 

Description; 

Subroutine  DIGERR  flags  digitizer  errors.  The  bit  corresponding  to 
the  value  of  "error  word"  is  set  in  the  digitizer  error  word  using  a 
BIS  (bit  set)  instruction  to  preserve  any  other  existing  error 
flags.  If  this  error  causes  all  of  the  digitizers  associated  with  a 
channel  to  be  disabled,  that  channel  also  is  flagged  as  disabled. 


DISABL 

MACRO-11  Written  May  1976 

COMMON  Area: 

SYSCON  Partition 

Entry  Points ; 

Name 

DISCHN 
DISDIG 

Description: 

Subroutine  DISABL  is  used  to  set  the  disabled  flag  in  either  the 
digitizer  error  word  or  the  channel  error  word. 


Argument 

Channel  number 
Digitizer  number 
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DISCHN 


If  called  through  DISDIG,  sets  the  channel 
disabled  flag  in  the  channel  error  word  if  all 
digitizers  associated  with  that  channel  are 
disabled 

If  called  directly,  sets  the  channel  disabled 
flag  in  the  channel  error  word,  regardless  of 
the  status  of  the  digitizers  associated  with  the 
channel 

DISDIG  Sets  the  disable  bit  in  the  digitizer  error  word 


DSKERR 

MACRO-11  Written  February  1977 

File; 

The  currently  active  file 
I/O  Device: 

TI: 

Argument ; 

STAT  A global  two-word  array 
Description: 

Subroutine  DSKERR  is  an  asynchronous  trap  (AST)  entry  point  for  all 
disc  reads  and  writes.  The  RSX-llM  operating  system  causes  the  AST 
exit  to  be  taken  if  a disc  1/0  error  occurs.  DSKERR  converts  the 
error  number  placed  by  the  operating  system  in  the  low  order  byte  of 
the  first  word  of  array  STAT  to  ASCII  and  lists  it  on  TI:.  This 
listing  is  followed  by  a question  to  the  operator  asking  him  if  he 
wants  to  abort  the  running  program.  The  operator  must  respond  with 
either  a "Y"  for  yes  or  any  other  character  for  no.  A "Y"  answer 
causes  an  EX1T$S  macro  to  be  invoked  terminating  the  program.  An 
answer  of  no  causes  the  carry  bit  to  be  set,  followed  by  an  AST 
return  {ASTX$S  macro) . The  calling  program  should  then  issue  a 
branch  on  carry  set  (BCS)  instruction  to  retry  the  I/O  operation. 
The  operator's  decision  is  predicated  on  the  type  of  erxror 
encountered. 
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ELIMPT 


MACRO-11  Written  April  1976 

Argument : 

Address  of  an  array  of  512  data  p)oints 
Description: 

Subroutine  ELIMPT  performs  the  noise  point  elimination  step  of  the 
data  normalization  process.  The  operations  are  done  by  using 
floating  point  numbers.  This  subroutine  is  used  only  for  the 
normalization  of  the  shot  data  trace;  an  analogous  integer  form 
subroutine  QKELIM  is  used  for  the  baseline  and  calibration  data 
traces . 


ERRNUM 

MACRO-11  Written  March  1976 

Arguments ; 

Error  word 
Result 

Description: 

Subroutine  ERRNUM  sets  the  result  equal  to  the  value  of  the  highest 
set  bit  (left-most)  in  the  error  word. 


EXTRAP 

MACRO-11  Written  April-  1976 

Argiiment : 

Address  of  an  array  of  512  data  points 
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Description; 


Subroutine  EXTRAP  completes  the  normalization  process  for  a baseline 
trace.  If  necessary,  the  ends  of  the  trace  are  extrapolated  to 
provide  a complete  trace  of  512  points  by  using  the  value  of  the 
average  of  the  first  five  good  points  on  the  left  end  of  the  line 
and  the  last  five  good  points  on  the  right  end  of  the  line.  Then 
256  is  subtracted  from  each  point  to  set  the  zero  reference  of  the 
trace  to  the  center  of  the  digitizer  target. 


Note:  It  is  an  error  that  256  is  subtracted.  This  error  has  been 
propagated  throughout  SASP  versions  1 and  2.  The  value  to  be 
subtracted  from  the  trace  should  be  a function  of  the  baseline 
offset,  not  a constant  256.  This  will  be  corrected  in  version  3 of 
SASP.  This  negates  the  baseline  offset  feature  for  the  entire  SASP 
package . 


FIELD 

MACRO-11 

Written 

April 

Arguments ; 

Null  flag: 

1 

The 

first 

0 

The 

field 

-1 

The 

field 

-2 

The 

field 

1976 


character  is  a blank, 
contains  ASCII  data, 
is  empty, 
does  not  exist. 


Field  number 


RO  The  number  of  characters  in  the  field 
R1  The  starting  address  of  the  field 


Description: 


Subroutine  FIELD  finds  the  requested  field  number  in  the  terminal 
input  buffer  and  counts  the  number  of  characters  in  the  field.  The 
null  flag  argument  is  set.  All  fields,  except  the  first,  start  with 
the  character  control  I (TAB)  dig) » and  all,  except  the  last,  with 
the  character  NUL,  a zero,  since  the  buffer  is  always  zero  filled 
before  input. 


FLDCD 


MACRD-11  Written  April  1976 

Modified  April  1977 

Arguments : 


Null  flag:  1 
0 

-1 

-2 


The  first  character  is  a blanK 
The  field  contains  input. 

The  field  is  empty. 

The  field  does  not  exist. 


Field  number 

Address  of  a floating  point  variable 


Description: 

Sxibroutine  FLDCD  decodes  a floating  point  nvimber  from  the  ASCII 
input  in  the  selected  field.  The  standard  SASP  terminal  input 
convent ions  app ly . 

Input  need  not  be  in  FORTRAN  floating  point  input  format.  If  there 
is  no  decimal  point  in  the  input,  it  is  assumed  to  be  to  the  right 
of  the  last  digit  or  the  last  digit  preceding  the  character  E.  The 
exponent  field  is  limited  to  a maximum  of  two  digits  to  be 
compatable  with  DEC  FORTRAN.  The  numeric  field  is  limited  to  a 
maximum  of  seven  digits. 


FLGPTS 

MACRO-11  Written  March  1976 

Argument : 

The  address  pf  the  raw  data  array 
Description: 

Subroutine  FLGPTS  searches  the  raw  digitizer  data  and  flags  those 
points  that  are  either  found  or  known  to  be  bad  by  setting  bit  12  in 
the  horizontal  value  word.  The  following  situations  are  flagged: 
repeated  horizontal  values,  the  last  horizontal  value  read,  and  last 
horizontal  value  on  the  target.  The  flag  is  set  by  using  the 
varicJole  BADBIT,  which  is  defined  in  the  SYMDEF  macro. 
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FLOTE 


MACRO-11  Written  April  1976 

Argument : 

R4 

Description: 

Subroutine  FLOTE  converts  an  integer  to  a floating  point  number  with 
the  same  value.  R4,  used  as  a stack  pointer,  points  to  the  bottom 
address  of  a stack  that  is  of  a minimum  length  of  two  words  and  that 
contains  the  integer.  The  floating  point  number  is  placed  in  the 
bottom  two  words  of  the  stack,  and  R4  is  reset  to  point  to  the  first 
of  these  words. 

FLOTE  is  designed  to  be  used  in-line  with  the  floating  point 
instructions  on  the  PDF  11/40  by  using  a stack  of  at  least  four 
words . 


FLPOP 

MACRO-11  Written  February  1977 

Argument : 

R4  as  a stack  pointer 
Description: 

Subroutine  FLPOP  is  a multiple  entry  subroutine  that  handles 
floating  point  operations.  This  subroutine  is  normally  referenced 
only  through  the  macros  FPA,  FPS,  FPC  and  FPE  in  macro  library 
RRPMAC.MLB.  A four-word  stack  for  use  by  the  subroutine  must  be 
provided  by  the  calling  program  by  invoking  the  FSTK  macro  in  the 
same  library. 
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FSCIN 


MACRO- 11  Written  March  1977 

File; 

DKO; [100, 100] SYSCON.DAT,  DKl : [100,100] Sssss02.DAT 
(ssss  = shot  nvnnber) 

I/O  Device: 

TI: 

COMMON  Area: 

SYSCON  internal 
Description: 

Subroutine  FSCIN  reads  the  copy  of  SYSCON  contained  in  the  shot  file 
(Sssss02.DAT)  into  the  SYSCON  COMMON  area.  The  subroutine  first 
reads  the  disc  file  SYSCON.DAT  into  this  COMMON  block  and  obtains 
the  desired  shot  number  from  the  information  read  in.  Following 
this  it  opens  the  desired  shot  file  and  replaces  the  information  in 
the  COMMON  area  with  the  proper  SYSCON  from  the  shot  file.  All 
programs,  that  use  subroutine  FSCIN  must  be  built  using  internal 
storage  for  COMMON  SYSCON  instead  of  the  SYSCON  COMMON  partition. 


FXDCD 


MACRO-11  Written  date  vinknown 

Modified  April  1976 


Arguments : 


Null  flag: 


1 The  first  character  is  a blank. 
0 The  field  contains  ASCII  input. 
-1  The  field  is  empty. 

-2  The  field  does  not  exist. 


Field  number 

Address  of  an  integer  variable 
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Description: 

Subroutine  FXDCD  decodes  an  integer  from  the  selected  field.  The 
standard  SASP  terminal  input  conventions  apply.  An  odd  number  of 
minus  signs  causes  a negative  result.  All  other  characters  except 
integers  are  ignored. 

Note:  This  includes  the  decimal  point.  Numbers  containing  a 
decimal  point  are  not  truncated;  they  are  decoded  as  if  the  decimal 
point  is  not  there;  that  is,  2.4  becomes  24  not  2. 


GETBAS 

MACRO-11  Written  April  1976 

Modified  October  1976 

File: 

DKl: [100, 1001MAIN.DAT 
I/O  Devices: 

TI:,  digitizers 
Description: 

Subroutine  GETBAS  obtains  the  baseline  data  from  each  digitizer, 
normalizes  these  data,  and  stores  them  in  the  disc  file  MAIN.DAT. 
Error  conditions  are  flagged  and  listed  on  TI : . The  normalized 
baseline  is  checked  for  proper  position.  The  bloom  parameter  is 
calculated,  checked,  and  stored.  The  knob  readings  are  checked 
against  the  desired  settings,  and  any  discrepancies  are  flagged  and 
listed.  Baselines  are  stored  in  disc  file  MAIN.DAT  for  enabled 
digitizers  only;  other  baseline  data  are  untouched. 
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GETCAL 


MACRO-11  Written  April  1976 

Modified  November  1976 


File; 

DKl: [100, 1001MAIN.DAT 
I/O  Devices; 

TI ; , digitizers 
Description; 

Subroutine  GETCAL  obtains  the  calibration  data  from  each  digitizer, 
normalizes  these  data,  and  stores  them  in  the  disc  file  MAIN.DAT. 
The  baseline  data  for  each  digitizer  are  subtracted  from  the 
normalized  calibration  data  before  storage.  The  knob  readings  are 
checked  against  the  desired  settings.  Error  conditions  are  flagged 
and  listed  on  TI ; . 

Calibration  data  are  taken  from  enabled  digitizers  only;  data  areas 
within  the  disc  file  for  disabled  digitizers  are  untouched. 


GETDAT 

MACRO-11  Written  April  1976 

Modified  November  1976 

File; 

DKl; [100, 100 1MAIN.DAT 
I/O  Devices; 

TI;,  digitizers 
Description; 

Subroutine  GETDAT  reads  the  raw  shot  data  from  the  enabled 
digitizers  and  stores  these  data  in  the  disc  file  MAIN.DAT.  The 
only  error  condition  is  the  no  data  error  (15) , which  is  caused  by 
any  other  error  being  flagged  for  that  digitizer. 


GRAATC 


FORTRAN  Written  July  1976 

Modified  October  1976 

I/O  Device : 


TTO: 

Arguments : 

ISIZE  Graph  size  parameter:  1,  2,  or  3. 


ITYPE 


1 Graph  final  data 

2 Graph  calibration  data 

3 Graph  baseline  data 

4 Graph  raw  data 


N7912  Digitizer  number 
COMMON  Area: 


NORDAT 

Description: 

Subroutine  GRAATC  is  used  to  graph  data  waveforms  on  the  Tektronix 
R4010  terminal  (TTO:).  In  current  SASP  usage,  this  subroutine  is 
used  only  to  graph  the  final  data,  using  ITYPE  = 1,  ISIZE  = 2. 
Actual  plotting  ;is  done  by  using  the  Tektronix  Terminal  Control 
System  software  package. 


grAbas 

FORTRAN  Written  July  1976 

Modified  October  1976 

I/O  Device: 

TTO: 

Arguments : 

ISIZE  Graph  size  parameter:  1,  2,  or  3 
N7912  Digitizer  number 
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COMMON  Area: 


BAS DAT 
Description: 

SiJsroutine  GRABAS  graphs  the  normalized  baseline  data  on  the 
Tektronix  R4010  (TTO:)  terminal.  Actual  plotting  is  done  by  using 
the  Tektronix  Terminal  Control  System  software  package. 


GRACAL 

FORTRAN  Written  July  1976 

Modified  October  1976 

I/O  Device: 

TTO: 

Arguments : 

ISIZE  Graph  size  parameter:  1,  2,  or  3 
N7912  Digitizer  number 

COMMON  Area: 


CALDAT 

Description: 

Subroutine  GRACAL  is  used  to  graph  the  normalized  calibration  data 
on  the  Tektronix  R4010  (TTO:)  terminal.  The  actual  plotting  is  done 
by  using  the  Tektronix  Terminal  Control  System  software  package. 
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GRAPHV 


FORTRAN  Written  January  1977 

Files ; 

DKl: [100, 1001Sssss02.DAT,  OKI: [ 100, 100] VPLOT .BIN 
(ssss  = shot  number) 

COMMON  Area : 


NORDAT 

Descripti6n; 

Subroutine  GRAPHV  scales  and  plots  the  actual  shot  data,  from  COMMON 
NORDAT,  for  program  SCAVP. 


GRARAW 

FORTRAN  Written  May  1976 

Modified  October  1976 

I/O  Device; 

TTO: 

Arguments ; 

ISIZE  Graph  size  parameter:  1,  2,  or  3 
N7912  Digitizer  number 

COMMON  Area: 


RAWDAT 

Description: 

Subroutine  GRARAW  attempts  to  plot  the  raw  digitizer  waveforms  on 
the  Tektronix  R4010  (TTO:)  terminal.  Certain  types  of  "error" 
conditions  can  cause  this  subroutine  to  hang.  The  data  points 
associated  with  these  "errors"  are  flagged  out  of  the  normalized 
data;  however,  this  routine  attempts  to  plot  everything  that  was 
stored  in  the  digitizer  memory.  An  asynchronous  trap  (AST)  has  been 
added  to  the  progrcim  RAWCPY  to  eneible  the  operator  to  manually 
advance  to  the  next  data,  point  set  by  typing  an  "escape"  character 
on  TTl : when  subroutine  GRARAW  hangs . 
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GRASCA 


( 


FORTRAN  Written  May  1976 

Modified  October  1976 

I/O  Device; 

TTO ; 

Arguments : 


N7912  Current  digitizer  number 

YMAX  Vertical  scale  factor  for  annotation 

N Exponent  of  10  for  vertical  scale  factor 


COMMON  Areas: 

SYSCON  partition,  NORDAT,  PRBCAL,  PARAM 
Description; 

Subroutine  GRASCA  rescales  the  normalized  scaled  data  arrays  to 
adjust  the  vertical  units/division  factor  mantissa  value  to  a value 
of  the  form  1/n  where  n = 0.5,  1,  2,  or  4.  These  rescaled  data  are 
then  plotted  on  the  Tektronix  R4010  terminal. 


83 


GRAT 


FORTRAN 

Written  April  1976 

MACRO- 11 

Written  August  1976 

Modified  January  1977 

Arguments : 

ISIZE 

Determiner  of  the  size  of  the  graph  on  the  Tektronix  R4010 
terminal;  allowed  values  are  1,  2,  or  3.  Currently,  only 
the  value  of  2 is  used  in  SASP.  ISIZE  is  an .integer 
number. 

XMIN 

Minimum  X coordinate  value  as  a floating  point  number; 
currently,  always  zero 

XMAX 

Maximum  X coordinate  value  as  a floating  point  number; 
currently,  always  512 

YMIN 

Minimum  Y coordinate  value,  floating  point 

YMAX 

Maximum  Y coordinate  value,  floating  point 

TIC 

Number  of  Y coordinate  divisions  on  a vertical  half  axis. 

TIC  has  a value  of  4 for  all  graphs,  except  the  final 
scaled  data  graph  where  its  value  is  5.  TIC  is  a floating 
point  number.  For  all  graphs  except  the  final  scaled  data, 

YMIN  = 256  and  YMAX  =255. 

Description: 

Subroutine  GRAT  draws  a rectangular  frame  with  centered  X and  Y axes 

on  the  Tektronix  R4010  terminal.  The  X axis  is  marked  with  tick 
marks  to  divide  it  into  10  divisions.  The  Y axis  is  marked  with 
tick  marks  to  divide  it  into  either  8 or  10  divisions,  depending  on 
the  value  of  TIC.  GRAT  ^Iso  defines  two  windows  for  the  Tektronix 
Terminal  Control  System,  a software  package  for  the  Tektronix  R4010 
terminal.  These  windows  define  the  upper  and  lower  X and  Y limits 
as  floating  point  numbers  (XMIN,  XMAX,  YMIN,  YMAX)  for  user's  units 
and  as  integers  in  absolute  screen  value  units.  These  latter  values 
are  a function  of  the  ISIZE  argument. 


lASCII 


MACRO-11  Written  April  1976 

Modified  March  1977 


Arguments : 

A one- to- four  digit  integer 

First  two  ASCII  equivalent  characters 

Second  two  ASCII  equivalent  characters 

Description; 

Subroutine  lASCII  converts  the  given  integer  into  four  ASCII 
characters.  Leading  zeros  are  preserved.  This  subroutine  was 
modified  to  save  and  restore  R1  and  R2. 


IFICKS 

MACRO- 11  Written  April  1976 

Argument : 

R4  as  stack  pointer 
Description; 

Subroutine  IFICKS  is  a MACRO-11  equivalent  of  the  FORTRAN  IFIX 
subroutine.  R4  points  to  the  first  word  of  a two- word  floating 
point  number  on  a stack.  The  truncated  integer  equivalent  replaces 
the  second  word  of  the  floating  point  number,  and  the  value  of  R4  is 
adjusted  to  point  to  this  integer  value.  IFICKS  is  the  converse  of 
FLOTE. 
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INITLZ 


MACRO-11  Written  July  1976 

Modified  September  1976 


Arguments : 


NSAMP 

NA 

NB 

NACNT 
NBC  NT 
lERR 


Number  of  readings  to  take 

Address  of  data  array  for  calorimeter  A 

Address  of  data  array  for  calorimeter  B 

Actual  number  of  readings  taken  on  calorimeter  A 

Actual  number  of  readings  taken  on  calorimeter  B 

Error  flag — nonzero  values  indicate  device  timeout 


Description; 

Subroutine  INITLZ  is  the  interface  subroutine  that  controls  the  col- 
lection of  calorimeter  data  through  the  DR-llK  circuit  board  in  the 
computer.  Both  the  calorimeter  output  and  the  programmable  clock 
values  are  read  and  stored  in  an  asynchronous  manner  from  the  two 
calorimeters . 


INPCSR 

FORTRAN  Written  May  1976 

Modified  October  1976 

I/O  Device; 

TTO; 

COMMON  Area; 

PARAM 

Description ; 

Subroutine  INPCSR,  a subprogram  of  program  MARK,  is  used  to  obtain 
the  X values  (time)  as  rounded  truncated  integers  for  the  points  of 
interest  from  the  shot  data  traces.  This  subroutine  serves  as  an 
interface  to  the  subroutine  VCURSR  in  the  Terminal  Control  System 
package  provided  by  Tektronix.  These  values  are  obtained  by  the 
operator  who  sets  the  graphics  X cursor  to  the  desired  point  and 
types  any  character  and  then  a carriage  return.  This  operation  is 
repeated  three  times.  The  PARAM  COMMON  block  is  written  into  the 
MAIN.DAT  disc  file  by  the  calling  program  MARK. 
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INPUT 


MACRO- 11  Written  May  1976 

I/O  Device; 


TI: 

Argument ; 

Null  flag:  -2  Immediate  carriage  return 
0 Some  data  input 

Description: 

Subroutine  INPUT  allows  the  operator  to  type  in  a maximum  of  80 
characters  on  logical  unit  number  (LUN)5.  These  characters  are 
placed  in  an  80-character  zero-filled  buffer.  If  the  character 
counter  is  zero,  the  null  flag  is  set  to  -2;  otherwise,  it  is  set  to 
zero.  Those  bytes  not  filled  by  input  remain  as  zeros.  LUN5  may  be 
attached  to  any  input  device;  it  is  assigned  to  TI:  by  the  task 
builder. 


INT 

MACRO-11  Written  May  1976 

Arguments : 

Address  of  data  array  to  be  integrated 
Start  of  data  point  as  FORTRAN  subscript 
Sweep  rate  of  digitizer  in  nanoseconds 

Description; 

Subroutine  INT  performs  a trapezoidal  integration  of  the  floating 
point  data  array  whose  address  is  provided  as  an  argument,  beginning 
at  the  start-of-data  point.  At  is  calculated  in  units  of  seconds, 
based  on  the  sweep  rate  of  the  digitizer  and  the  fixed  spacing  of 
the  horizontal  digitizer  points.  The  data  before  the  start  of  the 
_data  point  are  multiplied  by  At  to  be  kept  at  the  same  relative 
magnitude  as  the  integrated  portion  of  the  trace. 
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Algorithm; 


Y'=YAt,  n=l,2,...,m-l, 

n n 

Y'  = 0 , n = m , 


Y^  = ^Y^  + '^n+2.)At/2  , n = m+l,  m+2,...,  512  , 


_ 1 point  X sweep  rate  (ns/div) 

51.2  points/div  x 10®  ns/s 

where 

Y^  = resulting  vertical  value  (selected  units) , 

Y = initial  vertical  value  (selected  units/second) , 
n 

m = start  of  data  subscript. 


INTABL 

MACRO-11  Written  March  1977 


I/O  Devices; 
Digitizers 


Argument ; 

Number  of  digitizer  controller  boards,  maximum  4 


Description; 


Subroutine  INTABL  enables  the  digitizer  interrupts  for  the  enabled 
digitizers  by  setting  the  enable  bit  in  the  controller  status  word. 

The  UNIBUS  addresses  used  are 


ADRCBl  + 


(n  X 1000| 


) 


where 


n = 0,  1, 


m - 1 , 


ADRCBl  = 164000g  and  is  established  by  the  SYMDEF  macro, 
m = number  of  controller  boards. 
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INTO I G 


MACRO-11  Written  date  unknown 

Obtained  from  Naval  Surface  Weapons  Center,  White  Oak, 
MD. 

I/O  Devices ; 

Digitizers 


Description; 

Subroutine  INTDIG  is  an  interrupt  handler  for  the  digitizers.  The 
only  action  this  subroutine  takes  is  to  lock  the  memory  of  the 
interrupting  digitizer.  This  subroutine  has  four  entry  points,  one 
for  each  digitizer  controller  board.  These  entry  points  are  labeled 
as  follows : 

INSCBl::  board  number  one 
INSCB2::  board  number  two 
INSCB3 : : board  number  three 
INSCB4 : : board  number  four 

Each  entry  point  is  reentrant.  The  address  of  the  interrupting 
digitizer  is  calculated  from  the  address  of  the  controller  board  and 
the  device  number  in  the  controller  status  word. 


INTRP 

MACRO- 11  Written  April  1976 

Argument ; 

Address  of  data  array 
Description; 

Subroutine  INTRP  performs  the  interpolation  step  in  the 
normalization  process  of  the  shot  data  array.  Floating  point 
arithmetic  is  used. 
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ISBASE 


MACRO-11  Written  April  1976 

Argijment ; 

Digitizer  number 
Description ; 

Subroutine  ISBASE  subtracts  the  baseline  data  and  the  constant  256 
from  the  calibration  trace  data.  This  is  a part  of  the 
normalization  process  of  the  calibration  data  traces.  Integer 
arithmetic  is  used. 


LSTERR 

MACRO-11  Written  May  1976 

I/O  Device; 


TI: 

Arguments ; 

Error  word 

Digitizer  number  or  zero 
Zero  or  channel  number 

Description; 

Subroutine  LSTERR  lists  either  a digitizer  or  a channel  error.  If 
^he  second  argument  is  nonzero,  a digitizer  error  is  listed; 
otherwise,  a channel  error  is  listed.  The  error  message  includes 
the  BEL  character  (7)  to  alert  the  operator  to  the  error  condition. 


MARKIT 


FORTRAN  Written  January  1977 

File; 

DKl ; [ 100 , 100] VPLOT . BIN 
COMMON  Area; 


PARAM 

Description; 

Subroutine  MARKIT  is  used  to  add  the  tick  marks  showing  the  peak  of 
the  fidu  pulse,  the  start  of  data,  and  time  of  the  first  peak  of 
interest  to  the  graphs  produced  by  program  SCAVP. 


MINMAX 

MACRO- 11  Written  April  1976 

Arguments ; 

Address  of  integer  array 
Array  size 
Maximum  value 

FORTRAN  subscript  for  maximum  value 
Minimum  value 

FORTRAN  subscript  for  minimum  value 
Description; 

Subroutine  MINMAX  scans  the  input  array  and  locates  the  maximum  and 
minimum  signed  values  and  their  positions  within  the  array.  The 
positions  are  then  converted  to  FORTRAN  subscripts. 


MRKCUR 


FORTRAN  Written  May  1976 

Modified  October  1976,  March  1977 

I/O  Device; 


TTO : 

COMMON  Area: 


PARAM 


Description: 

Subroutine  MRKCUR  is  used  by  programs  MARK  and  SCACPY  to  annotate 
the  graphs  with  three  short  tick  marks  just  below  the  top  of  the 
graph  to  indicate  the  times  chosen  by  the  operator  for  the  peak  of 
the  fidu  pulse,  the  start  of  data,  and  the  time  of  the  first  peak  of 
interest.  Actual  plotting  is  done  by  using  the  Tektronix  Terminal 
Control  System  software  package. 

Flowchart : MRKCUR 
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NSC ALE 


FORTRAN  Written  October  1976 

Arguments : 

A Number  to  be  scaled 
I Scaling  exponent 

Description: 

Subroutine  NSCALE  adjusts  A to  a value  between  1.  and  10.  and  sets 
the  value  of  I so  that 

old  A = new  A x 10^  . 


PAGE 

FORTRAN  Written  June  1976 

I/O  Device: 


TI: 

Description: 

Sxibroutine  PAGE  either  erases  the  screen  of  the  Tektronix  R4010 
terminal  or  causes  the  LA36  (DECwriter  II)  to  space  up  eight  lines, 
depending  on  which  terminal  is  TI : . PAGE  issues  a GETLUN  executive 
call  to  determine  which  terminal  is  in  use.  This  determination  is 
made  by  checking  the  terminal  buffer  size.  If  the  buffer  size  is 
132,  the  terminal  is  the  LA36,  and  a FORTRAN  WRITE  statement  is 
issued  with  a FORMAT  consisting  of  a "1";  otherwise,  the  ERASE 
subroutine  of  the  Tektronix  Terminal  Control  system  (TCS)  software 
package  is  called.  This  subroutine  should  not  be  confused  with  the 
subroutine  of  the  same  name  in  the  TCS  package. 
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PLTSF 


FORTPAN  Written  April  1976 

Modified  October  1976 


I/O  Device; 


TTO: 


COMMON  Area; 

SYSCON  partition 


Description; 


Subroutine  PLTSF  is  used  to  annotate  the  raw  data  graphs  produced  by 
program  GRARAW.  The  vertical  and  horizontal  scale  factors  and  the 
digitizer  number  are  added  to  the  graph,  as  is  the  word  "RAW". 


PRBREF 

MACRO-11  Written  May  1976 

File ; 

DKO: [100,100] PRBCAL.DAT 
Argument : 

Entry  point  PRDENT:  probe  identification  (ASCII) 
Other  entry  points : none 
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Description; 


PRBREF  is  a multiple  entry  point  subroutine  used  by  program  PRB  for 
all  references  to  the  disc  file  PRBREF.DAT.  This  file  is  opened  and 
closed  for  each  call  to  the  subroutine.  Entry  point  functions  are 
these : 

PINIT  Initialize  the  last  record  pointer  and  clear  the  current 
record  pointer. 

PNEW  Create  a new  disc  file,  with  the  next  higher  version 
number,  containing  only  an  end-of-file  record. 

PRDENT  Search  through  the  disc  file  for  an  entry  matching  the 
device  identification  in  the  argument.  A record 
consisting  of  all  minus  ones  signifies  that  no  matching 
record  was  found. 

PRDNEX  Get  the  next  record  from  the  disc  file. 


PRESET  Clear  the  current  record  pointer. 

PWBADD  Append  a new  record  to  the  end  of  the  disc  file. 

PWRENT  Rewrite  and,  hence,  update  the  current  disc  file  record. 


PRBSCH 

MACRO-11  Written  May  1976 

Modified  March  1977 


File; 

DKO : [ 100 , 100 ] PRBCAL . DAT 
1/0  Device; 


TI: 

Argument ; 

Probe  identification  (ASCII) 


96 


Description; 

Subroutine  PRBSCH  searches  the  disc  file  PRBCAL.DAT  for  the  given 
probe  identification.  If  the  probe  is  not  found,  an  end-of-file 
message  is  listed  on  TI:.  The  disc  file  is  opened  and  closed  with 
each  call  to  the  subroutine. 


PRICLR 

MACRO-11  Written  July  1976 

I/O  Device: 


LPO: 


Arguments : 

T , clock  value  at  time  that  simulator  fired 
(six  dummy  arguments) 

Sample  count  for  channel  A calorimeter 
Seunple  count  for  channel  B calorimeter 


Description: 


Subroutine  PRICLR  prints  the  raw  calorimeter  data  on  the  line 
printer.  These  data  are  printed  as  five  columns  of  20 
time-amplitude  pairs  with  the  time  values  first.  Time  values  are  in 
units  of  10  ps;  calorimeter  values  are  in  units  of  1.95  pV.  One 
hundred  entries  are  printed  for  each  calorimeter,  regardless  of  the 
actual  number  of  samples  that  were  collected,  but  all  entries  beyond 
the  end  of  actual  data  are  cleared.  The  value  of  is  subtracted 
from  all  of  the  time  entries. 
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QKELIM 


MACRO-11  Written  April  1976 

Modified  November  1976 

Argument ; 

Address  of  an  integer  array  of  length  512 
Description; 

Subroutine  QKELIM  performs  the  noise  point  elimination  step  of  the 
digitizer  data  normalization  process  for  the  baseline  and 
calibration  data.  Integer  arithmetic  is  used.  This  subroutine  is 
analogous  to  the  floating  point  subroutine  ELIMPT. 


QKLNTP 

MACRO-11  Written  April  1976 

Modified  November  1976 

Argument ; 

Address  of  an  integer  array  of  length  512 
Description; 

Subroutine  QKLNTP  performs  the  interpolation  step  of  the 
normalization  process  for  the  baseline  and  calibration  data. 
Integer  arithmetic  is  used.  This  subroutine  is  analogous  to  the 
floating  point  routine  INTRP. 


RAWPLT 


MACRO-11  Written  May  1976 

Modified  January  1977 

COMMON  Areas; 

HPTR,  RAWDAT,  IHPTR 
Description; 

RAWPLT  is  a subroutine  of  program  GRARAW.  It  is  used  to  condition 
the  raw  data  array  and  to  generate  an  array  of  pointers  to  the 
vertical  information  within  the  raw  data  array.  The  raw  data  are  in 
a 2046-word  array  in  COMMON  block  HPTR.  Each  word  of  this  array  is 
either  a horizontal  or  a vertical  value  and  is  flagged  as  such  by 
the  digitizer  from  which  the  data  were  obtained.  Subroutine  RAWPLT 
replaces  each  horizontal  value  with  the  count  of  vertical  values  for 
that  horizontal  value  and  places  a pointer  to  the  count  value  in  the 
array  IHPTR.  Repeated  horizontal  values  are  not  processed.  The 
array  IHPTR  is  arranged  so  that  the  pointers  will  produce  a graph  in 
numeric  sequence  from  1 to  512  on  the  horizontal  axis. 


RDIG 

MACRO-11  Written  April  1976 

Arguments ; 

Digitizer  UNIBUS  address 
Error  word 

Description; 

Subroutine  RDIG  reads  and  verifies  the  raw  data  from  the  specified 
digitizer.  To  verify  the  data,  they  are  reread,  and  the  two  sets  of 
values  are  compared.  During  the  first  reading,  the  number  of  data 
points  is  counted,  and  this  value  is  stored;  a pointer  to  the  first 
h izontal  on  the  target  is  set.  If  during  the  verification  process 
more  than  MISMAX  errors  are  found,  the  entire  reading  and  verifying 
process  is  repeated.  This  repetition  can  occur  TRYMAX  times,  at 
which  point  an  error  code  of  7 is  generated.  MISMAX  and  TRYMAX  are 
defined  in  the  SYMDEF  macro. 
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The  maximum  number  of  points  that  will  be  stored  is  RAWMAX; 
additional  points  are  read,  but  not  stored.  Following  the  data 
reading,  the  knob  readout  information  is  read  and  stored.  If  the 
number  of  data  points  exceeds  the  value  of  RAWMAX,  an  error  code  of 
2 is  generated.  If  there  are  less  than  RAWMIN  points,  an  error  code 
of  3 is  generated.  RAWMAX  and  RAWMIN  are  also  defined  by  the  SYMDEF 
macro.  Their  values  are  based  on  the  concept  of  three  data  points 
for  each  horizontal  point  on  the  digitizer  screen  (that  is,  the 
horizontal  value  and  two  vertical  values) . Therefore,  in  the  ideal 
situation,  there  would  be  1536  data  points.  Any  raw  data  trace 
having  a count  value  significantly  different  from  1536  will  be 
difficult  to  normalize. 

The  data  points  and  knob  readout  data  are  stored  in  the  same  order 
as  they  are  read.  Since  the  read  gun  in  the  digitizer  begins  in  an 
arbitrary  location  on  the  screen  and  wraps  around,  the  first 
horizontal  that  is  read  is  rarely  the  first  horizontal  on  the 
target. 
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Flowchart: 


RDIG  (Cont'd) 


2 


Flowchart: 


RDIG  (Cont'd) 
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RDUKRO 


MACRO-11  Written  April  1976 

Arqiiments ; 

Digitizer  number 
Error  word 

COMMON  Area; 

SYSCON  partition 

Description; 

Subroutine  RDUKRO  compares  the  raw  digitizer  knob  readout  character 
(ASCII)  with  the  values  specified  by  the  operator  when  the  program 
LOG  was  run.  If  either  reading  disagrees  with  the  value  in  SYSCON, 
an  error  code  of  8 is  generated. 

The  knob  readout  information  is  the  last  32  words  of  the  raw  data 
read  from  the  digitizer.  Each  of  these  words  is  flagged  by  having 
bit  15  set.  Each  word  has  only  one  character  located  in  the  low 
order  byte  in  ASCII  format.  This  character  may  be  either  uppercase 
or  lowercase.  If  it  is  lowercase,  subroutine  RDUKRO  converts  it  to 
uppercase  before  attempting  the  comparison  operation. 

This  information  consists  of  four  segments  of  8 words.  In  normal 
STARS  operation,  only  the  first  (vertical  setting)  and  last 
(horizontal  setting)  segments  are  used. 


SAVCLR 

MACRO-11  Written  August  1976 

Modified  March  1977 


File ! 

DKl : I 100 ,100] Cssss02 . DAT 
(ssss  = shot  number) 

COMMON  Area; 

SYSCON  partition 
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Description; 

Subroutine  SAVCLR  creates  and  writes  the  calorimeter  data  file 
Cssss02.DAT.  This  file  is  written  if  and  only  if  calorimeter  data 
exist. 


SCADAT 

MACRO-11  Written  May  1976 

Modified  May  1977 

File ; 

DKl: [100, 100] MAIN. DAT 
I/O  Device; 


TI ; 

Arguments ; 

Digitizer  number 
Error  word 

COMMON  Area; 

SYSCON  partition 

Description ; 

Subroutine  SCADAT  normalizes  and  scales  the  raw  shot  data  and  stores 
the  result  in  disc  file  MAIN.DAT  for  the  enabled  digitizers. 
Baseline  data  are  subtracted  during  the  normalization  process.  The 
soale  factors  are  obtained  from  COMMON  SYSCON.  The  knob  readout 
information  is  checked  and,  if  the  information  is  found  to  be 
incorrect,  an  error  code  of  8 is  generated.  If  the  error  is 
generated,  that  digitizer  is  disabled,  but  the  scaled  data  are  still 
stored  in  the  disc  file. 

The  algorithms  used  for  data  scaling  are  described  in  the  writeup 
for  program  SCALE. 
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SCGEN 


MACRO-11  Written  May  1976 

Modified  January  1977 


File! 

DKO : [ 100 , 100 ] SYSCON . DAT 
I/O  Device; 


TI: 


COMMON  Area: 

SYSCON  partition 
Description; 

Subroutine  SCGEN  creates  a new  SYSCON  first  in  the  COMMON  partition 
and  then  on  disc  0 (DKO;).  The  disc  file  has  the  next  higher 

version  number.  The  value  of  NSCBLK  is  used  to  allocate  the 
necessary  disc  blocks  for  this  file.  NSCBLK  is  defined  in  the 
SYMDEF  macro;  it  is  currently  set  with  a value  of  5.  Disc  errors 
are  listed  on  TI ; . 


SC  10 

MACRO-11  Written  April  1976 

Modified  March  1977 

File; 

DKO; [100, 100 lSYSCON.DAT 
I/O  Device; 

TI: 

COMMON  Area; 

SYSCON  partition  or  internal  exclusively 
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Description; 


Subroutine  SCIO  has  two  entry  points: 

SCIN  Causes  the  disc  file  SYSCON.DAT  to  be  read  to  the  SYSCON 
COMMON  area 

SCOUT  Causes  the  SYSCON  COMMON  area  to  be  written  to  the 
current  version  of  the  disc  file  SYSCON.DAT 

In  Version  2 of  the  SASP,  SCOUT  is  used  only  to  write  the  SYSCON 
partition  to  disc.  The  number  of  disc  blocks  read  or  written  is  the 
value  of  the  variable  NSCBLK,  which  is  defined  in  the  SYMDEF  macro. 


SCMAIN 

MACRO-11  Written  April  1976 

Modified  January,  March  and  May  1977 

Files ; 

DKl: [100, 100] MAIN. DAT,  DKl ; [ 100 , 100] Sssss02 .DAT 
(ssss  = shot  number) 

I/O  Device ; 


TI: 

COMMON  Area; 

SYSCON  partition 
Description; 

Subroutine  SCMAIN  writes  the  contents  of  COMMON  SYSCON  into  the 
first  NSCBLK  blocks  of  disc  file  MAIN.DAT  and  then  renames  this  disc 
file  to  Sssss02.DAT.  The  variable  NSCBLK  is  defined  in  the  SYMDEF 


macro. 


SETVEC 


MACRO-11  Written  March  1976 

I/O  Devices > 

Digitizers 
COMMON  Area; 

SYSCON  partition 
Description; 

Subroutine  SETVEC  establishes  the  digitizer  interrupt  vectors  and 
priorities.  The  addresses  set  into  the  interrupt  vectors  are  the 
entry  points  of  the  subroutine  INTDIG.  The  priority  is  the  value  of 
variable  PRIDIG,  which  is  defined  in  the  SYMDEF  macro. 


STCDAT 


MACRC-11  Written  May  1976 

COMMON  Areas ; 


SYSCON  partition,  TIME 
Description; 


Subroutine  STCDAT  transfers  the  six 
eight  returned  by  the  GTIM$  system 
storage  locations  in  COMMON  SYSCON. 
the  time  of  the  trigger  from  the 
actual  time  and  date  of  the  shot. 
TIME  by  the  GTIM$  macro. 


most  significant 
macro  into  the 
The  GTIM$  macro 
OWL  II  simulator  and  records  the 
These  data  are  stored  in  COMMON 


words  of  the 
date  and  time 
is  invoked  at 


•i 
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SUBASE 


MACRO-11  Written  April  1976 

COMMON  Areas; 

NORDAT,  BASDAT 
Description; 

Subroutine  SUBASE  subtracts  the  baseline  data  and  the  number  256 
from  the  shot  data.  End  gaps  in  the  data  array  are  set  to  zero. 
These  are  the  last  three  steps  in  the  normalization  process  for  the 
shot  data.  Each  baseline  data  point  (integer)  has  the  number  256 
added  to  it;  then  it  is  converted  to  a floating  point  number  and 
subtracted  from  the  corresponding  data  point  in  the  shot  data  array. 
This  is  the  floating  point  analog  of  subroutine  ISBASE. 


UCOUT 

MACRO-11  Written  May  1976 

Modified  March  and  May  1977 


File; 

DKl : [ 100 , 100] Sssss02 . DAT 
(ssss  = shot  number) 

COMMON  Area; 

SYSCON  partition 

Description; 

Subroutine  UCOUT  writes  the  user  comments  to  the  disc  file 
Sssss02.DAT.  The  shbt  number  and  simulator  code  (02)  are  obtained 
from  the  SYSCON  COMMON  block.  The  user  comments  are  stored  in  the 
channel  entry  array  (ICHAN)  of  SYSCON  COMMON.  The  contents  of  ICHAN 
are  saved  and  restored  by  the  calling  program.  There  is  one  comment 
for  each  digitizer  in  the  system. 
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VGRAT 


FORTRAN  Written  January  1977 

File : 

DKl: [100, 100] VPLOT.BIN 


Description: 


Subroutine  VGRAT  draws  a rectangular  frame  with  centered  X and  Y 
axes  for  the  final  scaled  data  plots  produced  by  program  SCAVP. 
Bpth  axes  are  marked  with  tick  marks  to  divide  the  axes  into  10 
divisions. 


XCHDRI 

MACRO-11  Written  May  1976 

File : 

DKO : [ 100 , 100] XCHCAL . DAT 
COMMON  Area: 

XCHHDR 


Description : 


Subroutine  XCHDRI  opens  disc  file  XCHCAL.DAT,  reads  in  the  header 
section  of  the  channel  data  (the  first  three  records) , and  then 
closes  the  file. 


XCHREF 

MACRO-11  Written  May  1976 

Modified  March  1977 

File; 

DKO: [100, 100] XCHCAL. DAT 


110 


I/O  Device ; 


TI: 


Arguments ; 


Entry  point: 


XNEW  Number  of  channels 
XPDENT  Channel  number 
XWRENT  Channel  number 


COMMON  Areas: 


XCHHDR,  XCHCAL 
Description: 

XCHREF  is  a multiple  entry  point  subroutine  using  a common  file 
descriptor  block  for  the  disc  file  XCHCAL.DAT.  It  handles  all  disc 
references  for  the  program  XCH.  Disc  file  XCHCAL.DAT  is  opened  and 
closed  with  each  call  to  the  package.  The  function  of  each  entry 
point  is  described  below: 


XNEW  Creates  a new  disc  file  with  the  next  higher  version 
number  and  large  enough  to  hold  the  information  required 
for  the  number  of  channels  given  in  the  argument 

XRDENT  Reads  the  entries  for  the  given  channel  number  into 
COMMON  XCHCAL 

XRDHDR  Reads  the  three  records  of  header  information  into  COMMON 
XCHHDR 

XWRENT  Writes  the  entries  for  the  channel  number  given  in  the 
argiiment  from  COMMON  XCHCAL  to  the  disc  file 

XWRHDR  Writes  the  header  information  from  COMMON  XCHHDR  to  the 
disc  file 
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XCHSCH 


MACRO-11  Written  May  1976 

Modified  March  1977 


File : 

DKO : [ 100 , 100] XCHCAL . DAT 
I/O  Device ; 

TI: 

Argument ; 

Channel  number 
COMMON  Areas: 


XCHCAL 

Description: 

Subroutine  XCHSCH  reads  the  entry  in  disc  file  XCHCAL.DAT  for  the 
given  chcvnnel  number  into  COMMON  XCHCAL.  The  disc  file  is  opened 
and  closed  with  each  call  to  XCHSCH.  If  the  requested  chainnel 
information  is  not  present,  an  error  message  is  listed  on  Tl:. 


XMIT 

MACRO-11  Written  April  1976 

Modified  January  and  March  1977 

I/O  Devices; 

TI ; , attenuator  control  unit 

Argument ; 

MODE  0 On 
1 Off 

COMMON  Area; 

SYSCON  partition 
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Description : 


Siibroutine  XMIT  was  written  to  control  the  operation  of  the  fiber 
optic  transmitters  and  to  cause  the  setting  of  the  remote 
attenuators  in  those  transmitters  for  programs  DATA  and  DATAPC. 
Commands  are  sent  to  enabled  channels  only.  An  attenuator 
verification  error  is  flagged  and  listed  as  a channel  error  2,  the 
channel  is  disabled,  and  the  transmitter  is  turned  off.  All 
associated  digitizers  on  that  channel  are  disabled. 


This  subroutine  is  not  currently  used  in  the  SASP  package; 
subroutine  XMTSPC  is  used,  instead. 


XMIT  Source  File:  XMTSPC. MAC 

MACRO-11  Written  April  1976 

Modified  January  and  March  1977 


I/O  Devices: 

TI : , attenuator  control  unit 

Argument : 

MODE  0 On 
1 Off 

COMMON  Area: 

SYSCON  partition 

Description; 

Subroutine  XMIT  controls  transmitter  turn  on,  attenuator  set, 
attenuator  verification  and  reverification,  and  transmitter  turn-off 
functions  for  programs  DATAPC  and  CONDAT.  Commands  are  sent  to 
enaibled  channels  only.  Three  attempts  are  made  to  obtain  a correct 
verification  of  the  attenuator  setting;  if  the  verification  fails  on 
the  third  attempt,  the  transmitter  is  left  on  and  a verification 
error  for  that  channel  (error  2)  is  listed  on  TI:.  Neither  the 
channel  nor  the  associated  digitizers  are  flagged  out. 
Reverification  of  the  attenuator  setting  is  made  in  program  CONDAT 
before  the  transmitters  are  turned  off;  any  errors  found  are  listed 
on  TI : . 

The  object  file  for  this  subroutine  is  XMTSPC. OBJ,  and  it  must  be 
listed  by  that  name  in  all  inputs  to  the  task  builder. 
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.RSTR 


MACRO'll  Written  July  1976 
Description; 

Subroutine  .RSTR  restores  general  registers  RO  trough  R5,  in 
reverse  numerical  order,  from  the  program  stack.  This  subroutine  is 
the  inverse  of  subroutine  .SAVE. 


.SAVE 

MACRO-11  Written  July  1977 

Description; 

subroutine  .SAVE  stores  the  general  registers  RO  through  R5,  in 
ascending  numerical  order,  on  the  program  stack.  This  subroutine  is 
the  inverse  of  subroutine  .RSTR. 
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APPENDIX  A. — SUBROUTINE  CROSS-REFERENCE  LIST 


This  appendix  lists  the  subroutines,  where  they  are  stored,  which 
other  subroutines  they  call,  and  which  other  ones  call  them  on  the 
SKYNET  Applications  Software  Package, 


Name  (entry  points)  Library 


Sxibroutine  (entry 
point)  called 


Called  by 


ABSPKV 

None 

None 

GRASCA 

ANOCLR 

None 

None 

PLTCLR  (program) 

ANOMRK 

None 

MOVABS 

ANMODE 

MARK  (progreun) 

ANOSCA 

None 

MOVABS 

ANMODE 

SCACPY  (program) 

ANOT8 

None 

None 

SCAVP  (program) 

ANSWER 

INPUT 

ASDCD 

INPUT 

Many 

ASCBIN 

None 

None 

SCAVP  (program) 

ASDCD 

INPUT 

FIELD 

Many 

ASTSC 

None 

ASTSET 

ASTCLR 

RAWCPY  (program) 

ATNREF 

None 

None 

ATN  (program) 

(AINIT) 

(ANEW) 


(ARDENT) 

(ARDNEX) 

(ARESET) 

(AWRADD) 

(AWRENT) 


ATNSCH 

None 

None 

Many 

ATTEN 

None 

None 

CAL  (program) 

CONDAT  (program) 

BASATC 

Normal 

None 

GETBAS 
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Name 


Subroutine  (entry 

(entry  points)  Library  point)  called 


BUSY 

HANDLR 

None 

CALATC 

NORMAL 

None 

CALCSF 

None 

ATNSCH 

FLOTE 

PRBSCH 

XCHSCH 

CALIB 

None 

ATTEN  (ATTEN) 
CHNERR 

LSTERR 

.RSTR 

.SAVE 

CALOR 

None 

None 

CALPLT 

None 

None 

CHACNT 

None 

None 

CHKTRG 

HANDLR 

DIGERR 

LSTERR 

.RSTR 

.SAVE 

CHNERR 

ERROR 

DISABL  (DISDIG) 

CLRCBD 

HANDLR 

None 

CMDDIG 

HANDLR 

DIGERR 

LSTERR 

.RSTR 

.SAVE 

datatc 

NORMAL 

FLOTE 

DATFIO 

None 

None 

(CLOSES) 

(OPENS) 

(READB) 

(READR) 

(WRITES) 

(WRITER) 
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Called  by 

RDIG 

GETCAL 

SCALE  (program) 

CAL  (program) 

CONDAT  (program) 

PLTCAL  (program) 

SCAVP  (program) 

BASE  (program) 
CAL  (program) 
DATAPC  (program) 

Many 

Many 

Many 

SCADAT 

Many 


APPENDIX  A 


Name  (entry  points) 

Library 

Subroutine  (entry 
point)  called 

Called  by 

dcdbit 

ERROR 

None 

FLAG  (program) 
SUMERR  (program) 

DIGERR 

ERROR 

DISABL  (DISCHN) 

Many 

DISABL 

(DISCHN) 

ERROR 

None 

CHNERR 

DIGERR 

(DISDIG) 

DSKERR 

ERROR 

None 

Many 

elimpt 

NORMAL 

IFICKS 

SCADAT 

ERRNUM 

ERROR 

None 

LSTERR 

EXTRAP 

NORMAL 

None 

GETBAS 

FIELD 

INPUT 

None 

ASDCD 

FLDCD 

FXDCD 

FLDCD 

INPUT 

FIELD 

FLOTE 

Many 

FLGPTS 

HANDLR 

None 

GETBAS 

GETCAL 

GETDAT 

FLOTE 

INPUT 

None 

Many 

FLPOP 

None 

None 

Many 

FSCIN 

None 

None 

Many 

FXDCD 

INPUT 

FIELD 

Many 

GETBAS 

None 

BASATC 

DIGERR 

BASE  (program) 

extrap 

FLGPTS 

LSTERR 

minmax 

QKELIM 

QKLNTP 

RDIG 

RDUKRO 
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Name  (entry  points) 

Library 

Subroutine  (entry 
point)  called 

Called  by 

GETCAL 

None 

CALATC 

DIGERR 

FLGPTS 

ISBASE 

LSTERR 

QKELIM 

QKLNTP 

RDIG 

RDUKRO 

CAL  (program) 

GETDAT 

None 

DIGERR 

FLGPTS 

LSTERR 

RDIG 

DATAPC  (program) 

GRAATC 

None 

GRAT 

MOVEA 

DRAWA 

MARK  (program) 

GRABAS 

None 

GRAT 

MOVEA 

DRAWA 

CHKBAS  (program) 

GRACAL 

None 

GRAT 

MOVEA 

DRAWA 

CHKCAL  (program) 

GRAPHV 

None 

None 

SCAVP  (program) 

GRARAW 

None 

RAWPLT 

GRAT 

POINTA 

RAWCPY  (program) 

GRASCA 

None 

GRAT 

MOVEA 

SCACPY  (program) 

DRAWA 

ABSPKV 


GRAT 

None 

TWINDO 

GRAATC 

DWINDO 

GRABAS 

MOVEA 

GRACAL 

DRAWA 

GRARAW 

MOVER 

GRASCA 

DRAWR 

IN  ITT 
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Name  (entry  points) 

Library 

Subroutine  (entry 
point)  called 

Called  by 

lASCII 

ERROR 

None 

LSTERR 

SHOTNO  (program) 

IFICKS 

INPUT 

None 

Many 

INITLZ 

None 

None 

CONDAT  (program) 

INPCSR 

None 

SETBUF 

VCURSR 

MARK  (program) 

INPUT 

INPUT 

None 

Many 

INT 

None 

FLOTE 

SCACPY  (program) 

INTABL 

HANDLR 

None 

BASE  (program) 
CAL  (program) 
DATAPC  (program) 

INTDIG 

(INSCBl) 

(INSCB2) 

(INSCB3) 

(INSCB4) 

HANDLR 

None 

SETVEC 

Tektronix  R 7912 
interrupt 

INTRP 

NORMAL 

FLOTE 

SCADAT 

ISBASE 

NORMAL 

None 

GETCAL 

LSTERR 

ERROR 

ERNUM 

lASCII 

Many 

MARKIT 

None 

None 

SCAVP  (program) 

MINMAX 

None 

None 

GETBAS 

CHKCAL  (program) 

MRKCUR 

None 

MOVABS 

DRWREL 

MARK  (program) 
SCACPY  (program) 

NSC ALE 

None 

None 

SCAVP  (program) 

PAGE 

None 

ANMODE 

INITT 

BLMCHK  (program) 
ERASE  (program) 
FLAG  (program) 
LOG  (program) 
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Name  (entry  points) 

Library 

Subroutine  (entry 

Palleri  bv 

point)  called 

PLTSF 

None 

MOVABS 

ANMODE 

RAWCPY  (program! 

PRBREF 

(PINIT) 

(PNEW) 

(PRDENT) 

(PRDNEX) 

(PRESET) 

(PWRADD) 

(PWRENT) 

None 

None 

PRB  (program) 

PRBSCH 

None 

None 

Many 

PRICLR 

None 

None 

DATAPC  (program) 

QKELIM 

NORMAL 

None 

GETBAS 

GETCAL 

QKLNTP 

NORMAL 

None 

GETBAS 

GETCAL 

RAWPLT 

None 

None 

RAWCPY  (program) 

RDIG 

HANDLR 

BUSY 

GETBAS 

GETCAL 

GETDAT 

RDUKRO 

None 

None 

GETBAS 

GETCAL 

SCADAT 

SAVCLR 

None 

None 

CONDAT  (program) 

SCADAT 

None 

DATATC 

DIGERR 

ELIMPT 

FLOTE 

LSTERR 

INTRP 

RDUKRO 

SUBASE 

SCALE  (program) 

SC  GEN 

None 

None 

CONGEN  (program) 
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Name  (entry  points) 

Library 

Subroutine  (entry 
point)  called 

SC  10 

None 

None 

SCMAIN 

None 

None 

SETVEC 

HANDLR 

INTDIG  (INSCBl) 
(INSCB2) 
(INSCB3) 
(INSCB4) 

STCDAT 

None 

None 

SUBASE 

NORMAL 

FLOTE 

UCOUT 

None 

None 

VGRAT 

None 

None 

XCHDRI 

None 

None 

XCHREF 

(XNEW) 

(XRDENT) 

(XRDHDR) 

(XWRENT) 

(XWRHDR) 

None 

None 

XCHSCH 

None 

None 

XMIT 

None 

ATTEN  (ATTEN) 
CHNERR 

LSTERR 

• RSTR 

.SAVE 

.RSTR 

ERROR 

None 

.SAVE 

ERROR 

None 

Called  by 

Many 

TABIN  (program) 

BASE  (program) 
CAL  (program) 
DATAPC  (program) 

DATAPC  (program) 
SCADAT 

USRCOM  (program) 
SCAVPY  (program) 
Many 

XCH  (program) 


Many 

DATAPC  (program) 

Many 

Many 
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APPENDIX  B.— STANDARDIZED  COMMON  AREAS 


This  appendix  lists  COMMON  areas  and  their  varicibles  used  in  the 
SKYNET  Applications  Software  Package. 


Area 

Definition 

Variables 

ATNCAL 

ATNCAL.DAT  entry 

IDA(2),  GAIN,  DLAY,  M0DL(4),  IMFR(4) , 
1SP3(2) 

BASDAT. 

baseline  trace 

IBASE  (512) 

CALDAT 

calibration  trace 

ICAL  (512) 

LINE 

terminal  input  buffer 

INBUF  (40) 

NORDAT 

scaled  data  trace 

ATC  (512) 

PARAM 

parameter  entry  of 
shot  file 

lEFLG,  ITFIDU,  ITSDTA,  ITPEAK,  ITEND, 
ITCAL,  TEST,  PEAK,  TPEAK,  AREA, 
CALCOM(6),  RAWCOM(6),  SCACOM(6) , 

ISPRE  (14) 

PRBCAL 

PRBCAL.DAT  entry 

ID(2),  TF,  DLY,  IUNIT(4),  IFLG,  IBLN, 
MT,  ISPl,  MDL(4),  IMFG(4),  ICON(4), 
PAR,  ISP2(4) 

RAWDAT 

raw  digitizer  data 

IHPT,  NPTS,  IRAK (2046) 

SYSCON 

copy  of  SYSCON.DAT 

IHDR(80) , IDIG(10,20),  ICHAN(32,30) 
or 

IDAT(3),  ITIM(3),  1ASC(2),  ISHN,  NDIG 
NCB,  NCHAN,  IVBN(6),  ISIM,  IWIRE, 
CHARGE,  TVAC,  VDPV,  CDPV,  ICOM(15), 
NBLKS,  CALORl,  CALOR2 , NSAMPl,  NSAMP2 
ICLFRR,  IFLC,  AD,  BD,  FLT,  IDBT,  IDBC 
ISPARE(20),  IDIG(12,20),  ICHAi'I  (32 , 30) 

TIME 

time  and  date  of 
trigger 

ITM(8) 

XCHCAL 

XCHCAL.DAT  entry 

IXMT,  IFBR,  IREC,  1SP4,  DELAY,  CALLEV 

XCHHDR 

XCHCAL.DAT  header 

NCHN,  ISP6,  DTI,  DTRl,  DTR2 , DTF,  DTV 
BLN (3),  ISP7(6) 
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Area 

Variables 

Definition 

ATNCAL 

DLAY 

device  delay  (nanoseconds) 

GAIN 

device  gain  (decibels) 

IDA 

device  identification  (ID) 

IMFR 

manufacturer's  serial  number 

ISP3 

spare 

MODL 

model 

BASDAT 

IBASE 

baseline  trace 

CALDAT 

ICAL 

calibration  trace 

LINE 

INBUF 

terminal  input  buffer 

NORDAT 

ATC 

scaled  data  trace 

PARAM 

TUIEA 

area  under  data  trace 

CALCOM 

comment  on  calibration  trace 

lEFLG 

flag 

ITCAL 

FORTRAN  subscript  for  peak  of  calibra- 
tion trace 

ITEND 

FORTRAN  subscript  for  end  of  data  trace 

ITFIDU 

FORTRAN  subscript  for  peak  of  fiducial 
(fidu)  in  data  trace 

ITPEAK 

FORTRAN  subscript  for  peak  of  interest 
in  data  trace 

ITSDTA 

FORTRAN  subscript  for  start  of  data  in 
data  trace 

ISPRE 

spare 

PEAK 

peak  of  interest  in  data  trace 

RAWCOM 

comment  on  raw  data  trace 

SCACOM 

comment  on  scaled  data  trace 

TFST 

time  from  source  to  start  of  data 

TPEAK 

time  from  start  of  data  to  peak  of 
interest 

PRBCAL 

DLY 

probe  delay  (nanoseconds) 

IBLN 

balun  number 

ICON 

connector 

ID 

probe  ID 

IFLG 

flag 

IMFG 

manufacturer's  serial  number 

ISPl 

spare 

ISP2 

spare 

lUNIT 

units  for  scaled  data 

MDL 

model 

MT 

measurement  type 

PAR 

parameter 

TF 

transfer  function  (decibels) 

$ 

lUnKB&Htfr 
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Area 

Variables 

Definition 

RAWDAT 

IHPT 

FORTRAN  subscript  for  first  horizontal 
in  raw  data  trace 

IRAW 

raw  data  trace  followed  by  knob  readout 
characters 

NPTS 

number  of  data  points  in  raw  data  trace 

SYSCON 

ICHAN 

channel  entries 

IDIG 

digitizer  entries 

IHDR 

or 

header 

AD 

uncertainty  value  for  calorimeter  A 

BD 

uncertainty  value  for  calorimeter  B 

CALORl 

result  for  calorimeter  channel  A 

CALOR2 

result  for  calorimeter  channel  B 

CDPV 

current  diode  peak  value 

CHARGE 

simulator  charge  level  or  pulser  output 
level 

FLT 

filter  thickness  in  inches 

lASC 

American  Standard  Code  for  Information 
Interchange  (ASCII)  shot  number 

ICHAN 

channel  entries 

ICLERR 

calorimeter  error  flag 

ICOM 

simulator  comment 

IDAT 

trigger  date 

IDBC 

debris  shield  code 

IDBT 

number  of  thicknesses  of  debris  shield 

IDIG 

digitizer  entries 

IFLC 

filter  code 

ISHN 

integer  shot  number 

ISIM 

simulator  or  pulser  code 

ISPARE 

spare 

ITIM 

trigger  time 

IVBN 

virtual  block  numbers  for  segments  of 
shot  file 

IWIRE 

wire  type  or  configuration  code 

NBLKS 

number  of  blocks  in  shot  file 

NCB 

number  of  digitizer  controller  cards 

NCHAN 

number  of  channels 

NDIG 

number  of  digitizers 

NSAMPl 

number  of  samples  taken  on  calorimeter 
channel  A 

NSAMP2 

number  of  samples  taken  on  calorimeter 
channel  B 

TVAC 

tank  vacuum 

VDPV 

voltage  diode  peak  value 
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Area 

Variables 

Definition 

TIME 

ITM 

trigger  time  and  date 

XCHCAL 

CALLEV 

calibration  pulse  reference  level 

DELAY 

transmission  channel  delay 

IFBR 

fiber  number 

IREC 

receiver  number 

ISP4 

spare 

IXMT 

transmitter  address  number 

XCHHDR 

BLN 

balun  insertion  gain  (decibels) 

DTE 

DTRl 

fidu  path  delay  (nanoseconds) 

first  part  of  trigger  path  delay 

(At^^j^g  i)  (nanoseconds) 

DTR2 

second  part  of  trigger  path  delay 

DTV 

(Attrig  2^  (nanoseconds) 
vertical  plug-in  delay 

DTI 

source  to  XRD  transit  time  (nano- 

seconds ) 

ISP6 

spare 

ISP7 

spare 

NCHN 

number  of  channels 
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APPENDIX  C. “REMARKS  ON  SYSCON 


Part  or  all  of  the  information  contained  in  SYSCON  is  needed  by 
almost  every  program  in  the  SKYNET  Applications  Software  Package  (SASP) . 
The  exceptions  are  ATN,  PLTCLR,  PRB  and  XCH.  In  version  1 of  SASP, 
SYSCON  was  established  as  an  internally  contained  COMMON  block  in  the 
main  program  of  each  task.  The  analogous  construct  of  a SYSCON  PSECT 
was  used  in  those  programs  in  the  MACRO-11  language.  This  required  each 
program  to  read  the  disc  file  SYSCON.DAT  into  memory  at  the  start  of 
execution  and  to  write  the  information  back  to  the  disc  file  if  any 
changes  or  additions  were  made  at  the  end  of  execution.  This 
information  was  written  by  calls  to  entry  points  SCIN  and  SCOUT  in 
subroutine  SCIO.  Although  the  file  is  short,  only  five  disc  blocks, 
this  method  of  operation  expended  a sizable  amount  of  time  in  disc  reads 
and  writes  during  the  course  of  a day's  operation. 

Once  the  memory  management  board  was  installed  in  the  computer  and 
the  full  76K  of  memory  could  be  utilized,  it  became  feasible  to  place 
SYSCON  in  a COMMON  partition  and  leave  it  in  memory.  However,  at  that 
time,  all  of  the  privileged  programs  were  set  to  run  in  a 12K  partition. 
This  size  made  it  impossible  to  have  the  programs  access  the  COMMON 
partition  since  only  three  of  the  memory  management  registers  are 
available  to  a privileged  program.  Each  register  can  address  4K  of 
memory.  With  the  exception  of  program  DATAPC,  all  of  the  privileged 
programs  were  modified  to  run  in  8K  of  memory  in  January  1977.  DATAPC 
was  split  into  three  programs — DATAPC,  CONDAT  and  MORDAT — in  March  1977 
to  achieve  a set  of  programs,  each  of  which  would  fit  in  8K  of  memory. 
The  SYSCON  partition  was  established  in  January  1977,  and  the  programs 
were  all  retask  built  to  use  the  partition  at  that  time.  The  programs 
SAVCON  and  GETCON  were  written  to  save  and  restore  this  partition  from 
disc.  SAVCON  had  to  be  run  before  DATAPC  and  GETCON  had  to  be  run 
afterwards  since  DATAPC  still  read  SYSCON  from  the  disc  and  restored  it. 
The  calls  to  SCIO  were  removed  from  all  of  the  other  programs,  except 
for  CONGEN,  which  generates  SYSCON,  and  TABIN,  which  copies  the 
partition  into  the  shot  file  and  updates  the  disc  version  of  SYSCC»l. 

An  inherent  error  in  SASP  began  to  cause  real  problems  during  and 
after  the  January  1977  test.  Although  a copy  of  the  exact  SYSCON  for 
each  shot  was  a part  of  the  data  file  for  that  shot,  none  of  the 
progreuns  referenced  that  version  of  SYSCON;  they  all  used  either  the 
disc  file  or  the  COMMON  partition.  This  error  was  known,  but  only  when 
it  became  necessary  to  reproduce  old  data  were  the  full  effects  of  this 
error  demonstrated.  One  could  get  to  the  data,  but  not  to  SYSCON. 
Therefore,  in  March  1977,  a new  subroutine,  FSCIN,  was  added  to  the 
package  to  allow  access  to  the  copy  of  SYSCON  in  the  shot  file.  The 
method  of  accessing  these  shot  files  was  and  still  is  through  the  shot 
number.  All  programs  run  in  the  data  sequence  after  prograun  TABIN 
actually  reference  the  shot  file,  rather  than  MAIN.DAT,  and  they  get  to 
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the  shot  file  through  the  shot  number  stored  in  SYSCON.  These  programs 
are  SCACPY,  SCAVP,  TABLES,  SUMERR,  and  RECCAL.  The  concept  of 
overwriting  the  master  copy  of  SYSCON  in  the  partition  with  "old"  data 
obviously  could  not  be  considered.  But  the  operating  system  and  the 
task  builder  do  not  allow  a program  to  reference  two  COMMON  areas  with 
the  same  name.  Therein  lay  the  problem.  The  solution  was  to  use  cui 
internal  SYSCON  COMMON  block  in  this  latter  set  of  programs,  have  them 
get  the  shot  number  from  the  disc  copy  of  SYSCON,  and  then  read  the  copy 
of  SYSCON  in  the  shot  file  into  this  internal  COMMON  area.  This 
solution  was  implemented  in  March  1977  and  used  through  that  test 
period. 

Since  the  shot  number  is  taken  from  disc  file  SYSCON.DAT,  it  must  be 
stored  there.  The  procedure  to  get  a past  shot  file  is  to  run  two 
programs;  SHOTNO  (to  set  in  the  desired  shot  number)  and  SAVCON  (to 
store  this  shot  number  in  the  disc  file) . Since  program  TABIN  updates 
disc  file  SYSCON.DAT  during  its  operation,  the  above  procedure  is  not 
required  during  the  normal  program  sequence. 
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